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

integrate new rmGhcupDirs fn into Main.hs

Browse Source
This commit is contained in:
Arjun Kathuria 2021-06-26 21:56:52 +05:30
parent 395aeb415d
commit f7986cb4da
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
app/ghcup/Main.hs
View File

@ -1713,7 +1713,13 @@ Make sure to clean up #{tmpdir} afterwards.|])
lInstalled <- runLogger . flip runReaderT appstate $ listVersions Nothing (Just ListInstalled) lInstalled <- runLogger . flip runReaderT appstate $ listVersions Nothing (Just ListInstalled)
forM_ lInstalled $ runRm . rmTool forM_ lInstalled $ runRm . rmTool
runLogger $ runReaderT rmGhcupDirs appstate leftOverFiles <- runLogger $ runReaderT rmGhcupDirs appstate
case length leftOverFiles of
0 -> runLogger $ $logInfo "Nuclear Annihilation complete!"
_ -> do
runLogger $ $logWarn "These Directories have survived Nuclear Annihilation, you'd may remove them manually."
forM_ leftOverFiles (runLogger . $logWarn . T.pack)
pure ExitSuccess pure ExitSuccess