Verified Commit 6ccc9678 authored by Camil Staps's avatar Camil Staps 🚀

Fix readDirectoryTree on Windows: don't append trailing path separator

parent 883aaa7b
Pipeline #42572 passed with stage
in 2 minutes and 11 seconds
......@@ -65,7 +65,7 @@ readDirectoryTree :: !FilePath !(Maybe Int) !*World -> *(RTree (FilePath, MaybeO
readDirectoryTree fp md w = scan (maybe -1 id md) fp "" w
where
scan md acc fp w
# fp = acc </> fp
# fp = if (size fp==0) acc (acc </> fp)
# (mfi, w) = getFileInfo fp w
| isError mfi = (RNode (fp, liftError mfi) [], w)
| md == 0 = (RNode (fp, mfi) [], w)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment