hasufell/ghcup-hs
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

factor out getDirectoryContentsRecursive function in GHCup.Utils.Prelude

Browse Source
This commit is contained in:
Arjun Kathuria 2021-06-26 21:53:14 +05:30
parent 2277013c76
commit 6379a26afb
1 changed files with 23 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/GHCup/Utils/Prelude.hs
View File

@ -340,8 +340,8 @@ copyDirectoryRecursive srcDir destDir = do
-- parent directories. The list is generated lazily so is not well defined if -- parent directories. The list is generated lazily so is not well defined if
-- the source directory structure changes before the list is used. -- the source directory structure changes before the list is used.
-- --
getDirectoryContentsRecursive :: FilePath -> IO [FilePath] getDirectoryContentsRecursive :: FilePath -> IO [FilePath]
getDirectoryContentsRecursive topdir = recurseDirectories [""] getDirectoryContentsRecursive topdir = recurseDirectories [""]
where where
recurseDirectories :: [FilePath] -> IO [FilePath] recurseDirectories :: [FilePath] -> IO [FilePath]
recurseDirectories [] = return [] recurseDirectories [] = return []