path-extra 0.0.4 → 0.0.5
raw patch · 2 files changed
+4/−1 lines, 2 files
Files
- path-extra.cabal +1/−1
- src/Path/Extended.hs +3/−0
path-extra.cabal view
@@ -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
src/Path/Extended.hs view
@@ -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