urlpath 4.0.0 → 4.0.0.1

raw patch · 2 files changed

+6/−1 lines, 2 files

Files

src/Data/Url.hs +5/−0
urlpath.cabal +1/−1

src/Data/Url.hs view

@@ -414,6 +414,11 @@   pathUrl x   = AbsoluteUrlT (\h -> pure $ showUrlAuthority h ++ toFilePath x)   locUrl x    = AbsoluteUrlT (\h -> pure $ showUrlAuthority h ++ show x) +instance ( Applicative m+         ) => MonadUrl Abs Dir (AbsoluteUrlT m) where+  pathUrl x   = AbsoluteUrlT (\h -> pure $ showUrlAuthority h ++ toFilePath x)+  locUrl x    = AbsoluteUrlT (\h -> pure $ showUrlAuthority h ++ show x)+ instance Applicative m => Applicative (AbsoluteUrlT m) where   pure x = AbsoluteUrlT $ const (pure x)   f <*> x = AbsoluteUrlT $ \r ->

urlpath.cabal view

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