...
 
Commits (2)
...@@ -65,7 +65,7 @@ readDirectoryTree :: !FilePath !(Maybe Int) !*World -> *(RTree (FilePath, MaybeO ...@@ -65,7 +65,7 @@ readDirectoryTree :: !FilePath !(Maybe Int) !*World -> *(RTree (FilePath, MaybeO
readDirectoryTree fp md w = scan (maybe -1 id md) fp "" w readDirectoryTree fp md w = scan (maybe -1 id md) fp "" w
where where
scan md acc fp w scan md acc fp w
# fp = acc </> fp # fp = if (size fp==0) acc (acc </> fp)
# (mfi, w) = getFileInfo fp w # (mfi, w) = getFileInfo fp w
| isError mfi = (RNode (fp, liftError mfi) [], w) | isError mfi = (RNode (fp, liftError mfi) [], w)
| md == 0 = (RNode (fp, mfi) [], w) | md == 0 = (RNode (fp, mfi) [], w)
......