Merge pull request #12 from ska80/silence-package-clean

Silence 'idris2 --clean idris2.ipkg' errors
This commit is contained in:
Edwin Brady 2020-05-20 13:25:49 +01:00 committed by GitHub
commit 8c4727d308
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -384,7 +384,7 @@ clean pkg
let build = build_dir (dirs (options defs))
let exec = exec_dir (dirs (options defs))
runScript (preclean pkg)
let pkgmods = maybe
let pkgmods = maybe
(map fst (modules pkg))
(\m => fst m :: map fst (modules pkg))
(mainmod pkg)
@ -413,7 +413,7 @@ clean pkg
where
delete : String -> Core ()
delete path = do Right () <- coreLift $ fileRemove path
| Left err => throw (FileErr (name pkg) err)
| Left err => pure ()
coreLift $ putStrLn $ "Removed: " ++ path
deleteFolder : String -> List String -> Core ()