From 0cb22945fe596bdafff5b9a0fb6b9028aaa16f88 Mon Sep 17 00:00:00 2001
From: Arjun Kathuria <arjun.kathuria8@gmail.com>
Date: Tue, 22 Jun 2021 18:52:24 +0530
Subject: [PATCH] Adds some logger messages.

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

diff --git a/app/ghcup/Main.hs b/app/ghcup/Main.hs
index fe83377..fd0efbf 100644
--- a/app/ghcup/Main.hs
+++ b/app/ghcup/Main.hs
@@ -1702,8 +1702,12 @@ Make sure to clean up #{tmpdir} afterwards.|])
                     else putStrLn uri' >> pure ExitSuccess
 
             Nuke -> do
+              runLogger $ $logInfo "Initiating Nuclear Sequence 🚀🚀🚀"
+              runLogger $ $logInfo "Nuking in 3...2...1"
+
               lInstalled <- runLogger . flip runReaderT appstate $ listVersions Nothing (Just ListInstalled)
               forM_ lInstalled $ runRm . rmTool
+
               pure ExitSuccess
 
           case res of