web-routes 0.27.14.2 → 0.27.14.3
raw patch · 2 files changed
+10/−3 lines, 2 filesdep ~basePVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependency ranges changed: base
API changes (from Hackage documentation)
+ Web.Routes.RouteT: instance Control.Monad.Fail.MonadFail m => Control.Monad.Fail.MonadFail (Web.Routes.RouteT.RouteT url m)
- Web.Routes.PathInfo: fromPathInfo :: (PathInfo url) => ByteString -> Either String url
+ Web.Routes.PathInfo: fromPathInfo :: PathInfo url => ByteString -> Either String url
- Web.Routes.PathInfo: fromPathInfoParams :: (PathInfo url) => ByteString -> Either String (url, [(Text, Maybe Text)])
+ Web.Routes.PathInfo: fromPathInfoParams :: PathInfo url => ByteString -> Either String (url, [(Text, Maybe Text)])
- Web.Routes.PathInfo: mkSitePI :: (PathInfo url) => ((url -> [(Text, Maybe Text)] -> Text) -> url -> a) -> Site url a
+ Web.Routes.PathInfo: mkSitePI :: PathInfo url => ((url -> [(Text, Maybe Text)] -> Text) -> url -> a) -> Site url a
- Web.Routes.PathInfo: stripOverlap :: (Eq a) => [a] -> [a] -> [a]
+ Web.Routes.PathInfo: stripOverlap :: Eq a => [a] -> [a] -> [a]
- Web.Routes.PathInfo: toPathInfo :: (PathInfo url) => url -> Text
+ Web.Routes.PathInfo: toPathInfo :: PathInfo url => url -> Text
- Web.Routes.PathInfo: toPathInfoParams :: (PathInfo url) => url -> [(Text, Maybe Text)] -> Text
+ Web.Routes.PathInfo: toPathInfoParams :: PathInfo url => url -> [(Text, Maybe Text)] -> Text
- Web.Routes.RouteT: askRouteT :: (Monad m) => RouteT url m (url -> [(Text, Maybe Text)] -> Text)
+ Web.Routes.RouteT: askRouteT :: Monad m => RouteT url m (url -> [(Text, Maybe Text)] -> Text)
- Web.Routes.RouteT: runRouteT :: (url -> RouteT url m a) -> ((url -> [(Text, Maybe Text)] -> Text) -> url -> m a)
+ Web.Routes.RouteT: runRouteT :: (url -> RouteT url m a) -> (url -> [(Text, Maybe Text)] -> Text) -> url -> m a
- Web.Routes.RouteT: showURL :: (MonadRoute m) => URL m -> m Text
+ Web.Routes.RouteT: showURL :: MonadRoute m => URL m -> m Text
- Web.Routes.RouteT: showURLParams :: (MonadRoute m) => URL m -> [(Text, Maybe Text)] -> m Text
+ Web.Routes.RouteT: showURLParams :: MonadRoute m => URL m -> [(Text, Maybe Text)] -> m Text
- Web.Routes.RouteT: withRouteT :: ((url' -> [(Text, Maybe Text)] -> Text) -> (url -> [(Text, Maybe Text)] -> Text)) -> RouteT url m a -> RouteT url' m a
+ Web.Routes.RouteT: withRouteT :: ((url' -> [(Text, Maybe Text)] -> Text) -> url -> [(Text, Maybe Text)] -> Text) -> RouteT url m a -> RouteT url' m a
- Web.Routes.Site: runSite :: Text -> Site url a -> [Text] -> (Either String a)
+ Web.Routes.Site: runSite :: Text -> Site url a -> [Text] -> Either String a
Files
- Web/Routes/RouteT.hs +7/−0
- web-routes.cabal +3/−3
Web/Routes/RouteT.hs view
@@ -18,6 +18,11 @@ import Control.Monad.Catch (MonadCatch(catch), MonadThrow(throwM)) import Control.Monad.Cont(MonadCont(callCC)) import Control.Monad.Error (MonadError(throwError, catchError))+#if !MIN_VERSION_base(4,13,0)+-- Control.Monad.Fail import is redundant since GHC 8.8.1+import Prelude hiding (fail)+import Control.Monad.Fail (MonadFail(..))+#endif import Control.Monad.Fix (MonadFix(mfix)) import Control.Monad.Reader(MonadReader(ask,local)) import Control.Monad.RWS (MonadRWS)@@ -85,6 +90,8 @@ m >>= k = RouteT $ \ url -> do a <- unRouteT m url unRouteT (k a) url++instance (MonadFail m) => MonadFail (RouteT url m) where fail msg = liftRouteT (fail msg) instance (MonadPlus m, Monad (RouteT url m)) => MonadPlus (RouteT url m) where
web-routes.cabal view
@@ -1,5 +1,5 @@ Name: web-routes-Version: 0.27.14.2+Version: 0.27.14.3 License: BSD3 License-File: LICENSE Author: jeremy@seereason.com@@ -10,7 +10,7 @@ Homepage: http://www.happstack.com/docs/crashcourse/index.html#web-routes Cabal-Version: >= 1.8 Build-type: Simple-tested-with: GHC == 7.8.4, GHC == 7.10.3, GHC == 8.0.1, GHC == 8.2.2, GHC == 8.4.1+tested-with: GHC==8.0.1, GHC==8.2.2, GHC==8.4.1, GHC==8.6.5, GHC==8.8.1 test-suite Test type : exitcode-stdio-1.0@@ -24,7 +24,7 @@ web-routes Library- Build-Depends: base >= 4.6 && < 5,+ Build-Depends: base >= 4.9 && < 5, blaze-builder >= 0.2 && < 0.5, parsec >= 2 && < 4, bytestring >= 0.9 && < 0.11,