urlpath 2.0.0 → 2.1.0

raw patch · 2 files changed

+11/−7 lines, 2 files

Files

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

@@ -63,13 +63,17 @@  infixl 8 <&> --- | Adds a hash parameter to a @QueryString@.-(<#>) :: ( TextualMonoid a ) =>-         QueryString a-      -> a-      -> QueryString a-(<#>) (QueryString !t !p _) !h = QueryString t p $ Just h+class Hashable l r where+  -- | Adds a hash parameter to a @QueryString@.+  (<#>) :: l -> r -> QueryString r +instance ( TextualMonoid a ) => Hashable a a where+  (<#>) t h = QueryString t [] $ Just h++instance ( TextualMonoid a ) => Hashable (QueryString a) a where+  (<#>) (QueryString !t !p _) !h = QueryString t p $ Just h++infixl 7 <#>  fromRoute :: ( TextualMonoid a ) =>              ([a], [(a, a)])

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