[commit: packages/filepath] master: #24, turn back on the splitDirectories test (72543cc)
git at git.haskell.org
git at git.haskell.org
Thu Mar 19 11:35:00 UTC 2015
Repository : ssh://git@git.haskell.org/filepath
On branch : master
Link : http://git.haskell.org/packages/filepath.git/commitdiff/72543cc23359c78dee147d48c56e953e0a2eb794
>---------------------------------------------------------------
commit 72543cc23359c78dee147d48c56e953e0a2eb794
Author: Neil Mitchell <ndmitchell at gmail.com>
Date: Sun Oct 26 21:36:43 2014 +0000
#24, turn back on the splitDirectories test
>---------------------------------------------------------------
72543cc23359c78dee147d48c56e953e0a2eb794
System/FilePath/Internal.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/System/FilePath/Internal.hs b/System/FilePath/Internal.hs
index 997af79..1c0e012 100644
--- a/System/FilePath/Internal.hs
+++ b/System/FilePath/Internal.hs
@@ -636,8 +636,8 @@ splitPath x = [drive | drive /= ""] ++ f path
-- > splitDirectories "test/file" == ["test","file"]
-- > splitDirectories "/test/file" == ["/","test","file"]
-- > Windows: splitDirectories "C:\\test\\file" == ["C:\\", "test", "file"]
--- > Posix: Valid x => joinPath (splitDirectories x) `equalFilePath` x
--- > splitDirectories "" == []
+-- > Valid x => joinPath (splitDirectories x) `equalFilePath` x
+-- > splitDirectories "" == []
splitDirectories :: FilePath -> [FilePath]
splitDirectories = map dropTrailingPathSeparator . splitPath
More information about the ghc-commits
mailing list