Adds basic implementation of rmTool function

2021-06-22 14:29:26 +05:30
parent 0f6381e67b
commit ec29332657
2 changed files with 38 additions and 1 deletions
--- a/app/ghcup/Main.hs
+++ b/app/ghcup/Main.hs
@@ -1702,7 +1702,10 @@ Make sure to clean up #{tmpdir} afterwards.|])
                    else putStrLn uri' >> pure ExitSuccess

            Nuke -> do
-              putStrLn "Nuking in 3...2....1"
+              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!"
              pure ExitSuccess