diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-04-26 19:25:05 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-04-26 19:25:05 -0400 |
| commit | c7999da69b039829acc3b7da8005224af5bf6ed8 (patch) | |
| tree | b17c7d897d95503f1af66efc98e28da1179d798c /Utility/Directory.hs | |
| parent | a885d67e97c63d8fff657f6eb8d503fd91b0b42c (diff) | |
hlint
Diffstat (limited to 'Utility/Directory.hs')
| -rw-r--r-- | Utility/Directory.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Utility/Directory.hs b/Utility/Directory.hs index f1bcfada3..c2a50714c 100644 --- a/Utility/Directory.hs +++ b/Utility/Directory.hs @@ -43,7 +43,7 @@ dirContents d = map (d </>) . filter (not . dirCruft) <$> getDirectoryContents d - When the directory does not exist, no exception is thrown, - instead, [] is returned. -} dirContentsRecursive :: FilePath -> IO [FilePath] -dirContentsRecursive topdir = dirContentsRecursiveSkipping (const False) True topdir +dirContentsRecursive = dirContentsRecursiveSkipping (const False) True {- Skips directories whose basenames match the skipdir. -} dirContentsRecursiveSkipping :: (FilePath -> Bool) -> Bool -> FilePath -> IO [FilePath] |