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"