diff options
Diffstat (limited to 'Utility.hs')
| -rw-r--r-- | Utility.hs | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/Utility.hs b/Utility.hs index 8312335f8..72f5c5063 100644 --- a/Utility.hs +++ b/Utility.hs @@ -22,6 +22,7 @@ module Utility ( readMaybe, safeWriteFile, dirContains, + dirContents, prop_idempotent_shellEscape, prop_idempotent_shellEscape_multiword, @@ -235,3 +236,14 @@ safeWriteFile file content = do createDirectoryIfMissing True (parentDir file) writeFile tmpfile content renameFile tmpfile file + +{- Lists the contents of a directory. + - Unlike getDirectoryContents, paths are not relative to the directory. -} +dirContents :: FilePath -> IO [FilePath] +dirContents d = do + c <- getDirectoryContents d + return $ map (d </>) $ filter notcruft c + where + notcruft "." = False + notcruft ".." = False + notcruft _ = True |