diff --git a/Web/Routes/Happstack.hs b/Web/Routes/Happstack.hs
--- a/Web/Routes/Happstack.hs
+++ b/Web/Routes/Happstack.hs
@@ -18,7 +18,7 @@
 instance (FilterMonad a m) => FilterMonad a (RouteT url m) where
     setFilter     = liftRouteT . setFilter
     composeFilter = liftRouteT . composeFilter
-    getFilter     = mapRouteT getFilter 
+    getFilter     = mapRouteT getFilter
 
 instance (WebMonad a m) => WebMonad a (RouteT url m) where
     finishWith = liftRouteT . finishWith
@@ -35,7 +35,7 @@
 -- calls 'mzero' if the route can be decoded.
 --
 -- see also: 'implSite_'
-implSite :: (Functor m, Monad m, MonadPlus m, ServerMonad m) => 
+implSite :: (Functor m, Monad m, MonadPlus m, ServerMonad m) =>
             Text           -- ^ "http://example.org"
          -> Text           -- ^ path to this handler, .e.g. "/route/" or ""
          -> Site url (m a) -- ^ the 'Site'
@@ -52,11 +52,11 @@
 -- otherwise @Right a@.
 --
 -- see also: 'implSite'
-implSite_ :: (Functor m, Monad m, MonadPlus m, ServerMonad m) => 
+implSite_ :: (Functor m, Monad m, MonadPlus m, ServerMonad m) =>
              Text          -- ^ "http://example.org" (or "http://example.org:80")
           -> Text        -- ^ path to this handler, .e.g. "/route/" or ""
           -> Site url (m a)  -- ^ the 'Site'
-          -> m (Either String a) 
+          -> m (Either String a)
 implSite_ domain approot siteSpec =
     dirs (Text.unpack approot) $
          do rq <- askRq
@@ -64,7 +64,7 @@
             case f of
               (Left parseError) -> return (Left parseError)
               (Right sp)   -> Right <$> (localRq (const $ rq { rqPaths = [] }) sp)
-{- 
+{-
 implSite__ :: (Monad m) => String -> FilePath -> ([ErrorMsg] -> ServerPartT m a) -> Site url (ServerPartT m a) -> (ServerPartT m a)
 implSite__ domain approot handleError siteSpec =
     dirs approot $ do rq <- askRq
@@ -77,6 +77,6 @@
 
 -- | similar to 'seeOther' but takes a 'URL' 'm' as an argument
 seeOtherURL :: (MonadRoute m, FilterMonad Response m) => URL m -> m Response
-seeOtherURL url = 
+seeOtherURL url =
     do otherURL <- showURL url
        seeOther (Text.unpack otherURL) (toResponse "")
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.4
+Version:          0.23.5
 License:          BSD3
 License-File:     LICENSE
 Author:           jeremy@seereason.com
@@ -13,7 +13,7 @@
 Library
         Build-Depends:    base             >= 4 && < 5,
                           bytestring       >= 0.9 && < 0.11,
-                          happstack-server >= 6.6 && <7.2,
+                          happstack-server >= 6.6 && <7.4,
                           text             == 0.11.*,
                           web-routes       >= 0.27.1
         Exposed-Modules:  Web.Routes.Happstack