web-routes-happstack 0.23.4 → 0.23.5

raw patch · 2 files changed

+8/−8 lines, 2 filesdep ~happstack-serverPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: happstack-server

API changes (from Hackage documentation)

Files

• Web/Routes/Happstack.hs +6/−6
• web-routes-happstack.cabal +2/−2

@@ -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 "")

@@ -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