diff --git a/Web/Routes/Happstack.hs b/Web/Routes/Happstack.hs
--- a/Web/Routes/Happstack.hs
+++ b/Web/Routes/Happstack.hs
@@ -64,11 +64,6 @@
             case f of
               (Left parseError) -> return (Left parseError)
               (Right sp)   -> Right <$> (localRq (const $ rq { rqPaths = [] }) sp)
-        where
-          escapeSlash :: String -> String
-          escapeSlash [] = []
-          escapeSlash ('/':cs) = "%2F" ++ escapeSlash cs
-          escapeSlash (c:cs)   = c : escapeSlash cs
 {- 
 implSite__ :: (Monad m) => String -> FilePath -> ([ErrorMsg] -> ServerPartT m a) -> Site url (ServerPartT m a) -> (ServerPartT m a)
 implSite__ domain approot handleError siteSpec =
diff --git a/web-routes-happstack.cabal b/web-routes-happstack.cabal
--- a/web-routes-happstack.cabal
+++ b/web-routes-happstack.cabal
@@ -1,5 +1,5 @@
 Name:             web-routes-happstack
-Version:          0.23.1
+Version:          0.23.3
 License:          BSD3
 License-File:     LICENSE
 Author:           jeremy@seereason.com
@@ -11,9 +11,9 @@
 Build-type:       Simple
 
 Library
-        Build-Depends:    base             >= 4 && < 5, 
+        Build-Depends:    base             >= 4 && < 5,
                           bytestring       == 0.9.*,
-                          happstack-server == 6.6.*,
+                          happstack-server >= 6.6 && <7.1,
                           text             == 0.11.*,
                           web-routes       >= 0.27.1
         Exposed-Modules:  Web.Routes.Happstack