Implement ghcup gc command

Fixes #241
This commit is contained in:
2021-09-25 21:09:18 +02:00
parent 6ae3bfe395
commit c19dd5ee8b
5 changed files with 241 additions and 25 deletions

View File

@@ -105,6 +105,11 @@ findFiles path regex = do
contents <- listDirectory path
pure $ filter (match regex) contents
findFilesDeep :: FilePath -> Regex -> IO [FilePath]
findFilesDeep path regex = do
contents <- getDirectoryContentsRecursive path
pure $ filter (match regex) contents
findFiles' :: FilePath -> MP.Parsec Void Text a -> IO [FilePath]
findFiles' path parser = do
contents <- listDirectory path