From d09adf9159134ecbb61f114bd69a798222c460ac Mon Sep 17 00:00:00 2001
From: Arjun Kathuria <arjun.kathuria8@gmail.com>
Date: Tue, 22 Jun 2021 18:51:03 +0530
Subject: [PATCH] Updates Main.hs to work with new rmTool.

---
 app/ghcup/Main.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/app/ghcup/Main.hs b/app/ghcup/Main.hs
index 163962b..fe83377 100644
--- a/app/ghcup/Main.hs
+++ b/app/ghcup/Main.hs
@@ -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