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

Updates Main.hs to work with new rmTool.

This commit is contained in:
Arjun Kathuria 2021-06-22 18:51:03 +05:30
parent 0b959c56fb
commit d09adf9159
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
app/ghcup/Main.hs
View File

@ -1702,11 +1702,8 @@ Make sure to clean up #{tmpdir} afterwards.|])
else putStrLn uri' >> pure ExitSuccess
Nuke -> do
putStrLn "Initiating Nuclear Sequence... "
lInstalled <- runLogger . flip runReaderT appstate $ listVersions Nothing (Just ListInstalled)
forM_ lInstalled $ runLogger . flip runReaderT appstate . rmTool
putStrLn "Nuking in 3...2...1"
putStrLn "BOOM!"
forM_ lInstalled $ runRm . rmTool
pure ExitSuccess
case res of