diff --git a/path-extra.cabal b/path-extra.cabal
--- a/path-extra.cabal
+++ b/path-extra.cabal
@@ -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
diff --git a/src/Path/Extended.hs b/src/Path/Extended.hs
--- a/src/Path/Extended.hs
+++ b/src/Path/Extended.hs
@@ -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