path-extra 0.0.0 → 0.0.1

raw patch · 2 files changed

+13/−1 lines, 2 files

Files

• path-extra.cabal +1/−1
• src/Path/Extended.hs +12/−0

@@ -1,5 +1,5 @@ Name:                   path-extra-Version:                0.0.0+Version:                0.0.1 Author:                 Athan Clark <athan.clark@gmail.com> Maintainer:             Athan Clark <athan.clark@gmail.com> License:                BSD3

@@ -16,12 +16,14 @@     -- ** Query Parameters   , setQuery   , addQuery+  , (<&>)   , addQueries   , delQuery   , getQuery     -- ** Fragment   , setFragment   , addFragment+  , (<#>)   , delFragment   , module P   ) where@@ -95,6 +97,11 @@ addQuery q (Location js pa fe qp fr) =   Location js pa fe (qp ++ [q]) fr +(<&>) :: Location b t -> QueryParam -> Location b t+(<&>) = flip addQuery++infixl 7 <&>+ addQueries :: [QueryParam] -> Location b t -> Location b t addQueries qs (Location js pa fe qs' fr) =   Location js pa fe (qs' ++ qs) fr@@ -113,6 +120,11 @@  addFragment :: String -> Location b t -> Location b t addFragment fr = setFragment (Just fr)++(<#>) :: Location b t -> String -> Location b t+(<#>) = flip addFragment++infixl 8 <#>  delFragment :: Location b t -> Location b t delFragment = setFragment Nothing