From 82a704ab442df6b1d70ac4be272c8d8ba6c24c6d Mon Sep 17 00:00:00 2001 From: Arjun Kathuria Date: Tue, 22 Jun 2021 18:53:18 +0530 Subject: [PATCH] Adds 10s Thread-Delay and relevant Logger messages to Main.hs --- app/ghcup/Main.hs | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/app/ghcup/Main.hs b/app/ghcup/Main.hs index fd0efbf..4275e46 100644 --- a/app/ghcup/Main.hs +++ b/app/ghcup/Main.hs @@ -1702,6 +1702,11 @@ Make sure to clean up #{tmpdir} afterwards.|]) else putStrLn uri' >> pure ExitSuccess Nuke -> do + runLogger $ $logWarn "WARNING: This will remove GHCup and all installed components from your system." + runLogger $ $logWarn "Wating 10 seconds before commencing, if you want to cancel it, now would be the time." + + threadDelay 10000000 -- wait 10s + runLogger $ $logInfo "Initiating Nuclear Sequence 🚀🚀🚀" runLogger $ $logInfo "Nuking in 3...2...1"