diff --git a/Hack/Middleware/CleanPath.hs b/Hack/Middleware/CleanPath.hs
new file mode 100644
--- /dev/null
+++ b/Hack/Middleware/CleanPath.hs
@@ -0,0 +1,54 @@
+module Hack.Middleware.CleanPath (cleanPath, splitPath) where
+
+import Hack
+import qualified Data.ByteString.Lazy as BS
+import Data.List
+import Web.Encodings
+import Data.List.Split
+
+-- | Performs redirects as per 'splitPath'.
+cleanPath :: Middleware
+cleanPath app env =
+    case splitPath $ pathInfo env of
+        Left p -> return $! Response 303 [("Location", p)] BS.empty
+        Right _ -> app env
+
+-- | Given a certain requested path, return either a corrected path
+-- to redirect to or the tokenized path.
+--
+-- This code corrects for the following issues:
+--
+-- * It is missing a trailing slash, and there is no period after the
+-- last slash.
+--
+-- * There are any doubled slashes.
+splitPath :: String -> Either String [String]
+splitPath s =
+    let corrected = ats $ rds s
+     in if corrected == s
+            then Right $ map decodeUrl $ filter (\l -> length l /= 0)
+                       $ splitOneOf "/" s
+            else Left corrected
+
+-- | Remove double slashes
+rds :: String -> String
+rds [] = []
+rds [x] = [x]
+rds (a:b:c)
+    | a == '/' && b == '/' = rds (b:c)
+    | otherwise = a : rds (b:c)
+
+-- | Add a trailing slash if it is missing. Empty string is left alone.
+ats :: String -> String
+ats [] = []
+ats s =
+    if last s == '/' || dbs (reverse s)
+        then s
+        else s ++ "/"
+
+-- | Is there a period before a slash here?
+dbs :: String -> Bool
+dbs ('/':_) = False
+dbs ('.':_) = True
+dbs (_:x) = dbs x
+dbs [] = False
diff --git a/LICENSE b/LICENSE
new file mode 100644
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,25 @@
+The following license covers this documentation, and the source code, except
+where otherwise indicated.
+
+Copyright 2008, Michael Snoyman. All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+* Redistributions of source code must retain the above copyright notice, this
+  list of conditions and the following disclaimer.
+
+* Redistributions in binary form must reproduce the above copyright notice,
+  this list of conditions and the following disclaimer in the documentation
+  and/or other materials provided with the distribution.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS "AS IS" AND ANY EXPRESS OR
+IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
+EVENT SHALL THE COPYRIGHT HOLDERS BE LIABLE FOR ANY DIRECT, INDIRECT,
+INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA,
+OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
+LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE
+OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
+ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
diff --git a/Setup.lhs b/Setup.lhs
new file mode 100644
--- /dev/null
+++ b/Setup.lhs
@@ -0,0 +1,7 @@
+#!/usr/bin/env runhaskell
+
+> module Main where
+> import Distribution.Simple
+
+> main :: IO ()
+> main = defaultMain
diff --git a/hack-middleware-cleanpath.cabal b/hack-middleware-cleanpath.cabal
new file mode 100644
--- /dev/null
+++ b/hack-middleware-cleanpath.cabal
@@ -0,0 +1,21 @@
+name:            hack-middleware-cleanpath
+version:         0.0.0
+license:         BSD3
+license-file:    LICENSE
+author:          Michael Snoyman <michael@snoyman.com>
+maintainer:      Michael Snoyman <michael@snoyman.com>
+synopsis:        Applies some basic redirect rules to get cleaner paths.
+description:     Forces request to have a trailing slash (unless there is a
+                 file extension) and ensures there are no doubled slashes.
+                 Takes the idea from Django.
+category:        Web
+stability:       unstable
+cabal-version:   >= 1.2
+build-type:      Simple
+homepage:        http://github.com/snoyberg/hack-middleware-cleanpath/tree/master
+
+library
+    build-depends:   base >= 3, split >= 0.1.1, web-encodings,
+                     bytestring >= 0.9.1.4, hack >= 2009.5.19
+    exposed-modules: Hack.Middleware.CleanPath
+    ghc-options:     -Wall