RawFilePath conversion for Utility.Directory.Stream

2025-01-20 14:50:08 -04:00 · 2025-01-20 14:50:08 -04:00 · c7cca43ab0
commit c7cca43ab0
parent 1ceece3108
4 changed files with 29 additions and 25 deletions
--- a/Utility/Directory.hs
+++ b/Utility/Directory.hs
@ -37,6 +37,11 @@ dirCruft "." = True
 dirCruft ".." = True
 dirCruft _ = False

+dirCruft' :: R.RawFilePath -> Bool
+dirCruft' "." = True
+dirCruft' ".." = True
+dirCruft' _ = False
+
 {- Lists the contents of a directory.
 - Unlike getDirectoryContents, paths are not relative to the directory. -}
 dirContents :: RawFilePath -> IO [RawFilePath]