posix-paths 0.2.1.3 → 0.2.1.4

raw patch · 2 files changed

+14/−12 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• posix-paths.cabal +10/−10
• src/System/Posix/FilePath.hs +4/−2

@@ -1,16 +1,16 @@-name:		posix-paths-version:  0.2.1.3-license:	BSD3-license-file:	LICENSE-maintainer:	jwlato@gmail.com+name:  posix-paths+version:  0.2.1.4+license: BSD3+license-file: LICENSE+maintainer: jwlato@gmail.com bug-reports: http://github.com/JohnLato/posix-paths/issues-synopsis:	POSIX filepath/directory functionality-category:       System+synopsis: POSIX filepath/directory functionality+category: System description:-	This package gives access to certain POSIX-based Filepath/Directory+  This package gives access to certain POSIX-based Filepath/Directory   services.-	.-	The package is not supported under Windows (except under Cygwin).+  .+  The package is not supported under Windows (except under Cygwin). extra-source-files: cbits/dirutils.h                     doctests.hs                     benchmarks/*.hs

@@ -459,7 +459,9 @@ _equalFilePath :: RawFilePath -> RawFilePath -> Bool _equalFilePath a b = norm a == norm b   where-    norm = dropDups . dropTrailingSlash . dropInitialDot+    -- Drop trailing slash *after* we've dropped duplicate slashes,+    -- otherwise there might be trailing slashes left.+    norm = dropTrailingSlash . dropDups . dropInitialDot     dropTrailingSlash path         | BS.length path >= 2 && isPathSeparator (BS.last path) = BS.init path         | otherwise = path@@ -468,5 +470,5 @@         | otherwise = path     dropDups = joinPath . map f . splitPath     f component-        | BS.isSuffixOf "//" component = BS.init component+        | BS.isSuffixOf "//" component = f (BS.init component) -- there might be more slashes         | otherwise = component