Fix bug in createDirRecursive with trailing path separators

2020-02-17 18:50:08 +01:00
parent 23f4221fe1
commit ec9884276c
4 changed files with 12 additions and 3 deletions
--- a/hpath-directory/src/System/Posix/RawFilePath/Directory.hs
+++ b/hpath-directory/src/System/Posix/RawFilePath/Directory.hs
@@ -742,8 +742,8 @@ createDirRecursive fm p = go p
          | en == eEXIST
          -> unlessM (doesDirectoryExist dest) (ioError e)
          | en == eNOENT
-          -> createDirRecursive fm (takeDirectory dest)
-            >> createDirectory dest fm
+          -> go (takeDirectory $ dropTrailingPathSeparator dest)
+            >> createDir fm dest
          | otherwise
          -> ioError e