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.4
+Version:                0.0.5
 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
@@ -36,6 +36,7 @@
   , addFragment
   , (<#>)
   , delFragment
+  , getFragment
   , module P
   ) where
 
@@ -188,3 +189,5 @@
 delFragment :: Location b t -> Location b t
 delFragment = setFragment Nothing
 
+getFragment :: Location b t -> Maybe String
+getFragment (Location _ _ _ _ x) = x