urlpath 3.0.0 → 3.1.0

raw patch · 2 files changed

+7/−7 lines, 2 files

Files

• src/Data/Url.hs +6/−6
• urlpath.cabal +1/−1

@@ -19,7 +19,7 @@  -- * Classes -class Url b (m :: * -> *) where+class MonadUrl b (m :: * -> *) where   pathUrl   :: Path b t             -> m String   locUrl    :: Location b t@@ -28,10 +28,10 @@                ) => s                  -> m String -instance ( Url b m+instance ( MonadUrl b m          , MonadTrans t          , Monad m-         ) => Url b (t m) where+         ) => MonadUrl b (t m) where   pathUrl   = lift . pathUrl   locUrl    = lift . locUrl   symbolUrl = lift . symbolUrl@@ -109,7 +109,7 @@   liftIO = lift . liftIO  instance ( Applicative m-         ) => Url Rel (RelativeUrlT m) where+         ) => MonadUrl Rel (RelativeUrlT m) where   pathUrl x   = pure (toFilePath x)   locUrl x    = pure (show x)   symbolUrl x = pure (show (toLocation x))@@ -150,7 +150,7 @@   liftIO = lift . liftIO  instance ( Applicative m-         ) => Url Abs (GroundedUrlT m) where+         ) => MonadUrl Abs (GroundedUrlT m) where   pathUrl x   = pure (toFilePath x)   locUrl x    = pure (show x)   symbolUrl x = pure (show (toLocation x))@@ -191,7 +191,7 @@   liftIO = lift . liftIO  instance ( Applicative m-         ) => Url Abs (AbsoluteUrlT m) where+         ) => MonadUrl Abs (AbsoluteUrlT m) where   pathUrl x   = AbsoluteUrlT (\h -> pure $ show h ++ toFilePath x)   locUrl x    = AbsoluteUrlT (\h -> pure $ show h ++ show x)   symbolUrl x = AbsoluteUrlT (\h -> pure $ show h ++ show (toLocation x))

@@ -1,5 +1,5 @@ Name:                   urlpath-Version:                3.0.0+Version:                3.1.0 Author:                 Athan Clark <athan.clark@gmail.com> Maintainer:             Athan Clark <athan.clark@gmail.com> License:                MIT