diff --git a/src/libraries/OS-Independent/System/Directory.icl b/src/libraries/OS-Independent/System/Directory.icl index 546f49f7ff6c132b7be792e45bc2e71bf038fd0a..d824bb51581926260559a59ae1a60bc1b16224ae 100644 --- a/src/libraries/OS-Independent/System/Directory.icl +++ b/src/libraries/OS-Independent/System/Directory.icl @@ -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)