web-routes-mtl 0.19.1 → 0.20.1

raw patch · 2 files changed

+9/−33 lines, 2 filesdep −mtlPVP ok

version bump matches the API change (PVP)

Dependencies removed: mtl

API changes (from Hackage documentation)

Files

• Web/Routes/MTL.hs +7/−31
• web-routes-mtl.cabal +2/−2

@@ -1,41 +1,17 @@ {-# LANGUAGE GeneralizedNewtypeDeriving, FlexibleInstances, TypeFamilies, PackageImports, MultiParamTypeClasses, UndecidableInstances #-}-module Web.Routes.MTL where+module Web.Routes.MTL {-# DEPRECATED "web-routes-mtl and Web.Routes.MTL are deprecated. Just import Web.Routes from web-routes" #-}+    ( module Web.Routes.RouteT+    ) where -import "mtl" Control.Monad.Trans (MonadTrans(lift), MonadIO(liftIO))-import Web.Routes.RouteT (RouteT(RouteT, unRouteT), liftRouteT, mapRouteT)-import Control.Monad.Reader(MonadReader(ask,local))-import Control.Monad.State(MonadState(get,put))-import Control.Monad.Writer(MonadWriter(listen, tell, pass))-import Control.Monad.Error (MonadError(throwError, catchError))-import Control.Monad.RWS (MonadRWS)-import Control.Monad.Cont(MonadCont(callCC))+import Web.Routes.RouteT () -instance MonadTrans (RouteT url) where-  lift = liftRouteT++   -instance (MonadIO m) => MonadIO (RouteT url m) where  -  liftIO = lift . liftIO -instance (MonadReader r m) => MonadReader r (RouteT url m) where-  ask   = liftRouteT ask-  local f = mapRouteT (local f)   -instance (MonadState s m) => MonadState s (RouteT url m) where  -  get = liftRouteT get-  put s = liftRouteT $ put s   -instance (MonadWriter w m) => MonadWriter w (RouteT url m) where-  tell   w = liftRouteT $ tell w-  listen m = mapRouteT listen m-  pass   m = mapRouteT pass   m   -instance (MonadRWS r w s m) => MonadRWS r w s (RouteT url m)  +   -instance (MonadError e m) => MonadError e (RouteT url m) where-  throwError = liftRouteT . throwError-  catchError action handler = RouteT $ \f -> catchError (unRouteT action f) (\e -> unRouteT (handler e) f)   -instance (MonadCont m) => MonadCont (RouteT url m) where-    callCC f = RouteT $ \url ->-        callCC $ \c ->-        unRouteT (f (\a -> RouteT $ \_ -> c a)) url

@@ -1,5 +1,5 @@ Name:             web-routes-mtl-Version:          0.19.1+Version:          0.20.1 License:          BSD3 License-File:     LICENSE Author:           jeremy@seereason.com@@ -11,7 +11,7 @@ Build-type:       Simple  Library-        Build-Depends:    base >= 4 && < 5, mtl, web-routes >= 0.19+        Build-Depends:    base >= 4 && < 5, web-routes >= 0.19         Exposed-Modules:  Web.Routes.MTL  source-repository head