hasufell/ghcup-hs
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Adds 10s Thread-Delay and relevant Logger messages to Main.hs

Browse Source
This commit is contained in:
Arjun Kathuria 2021-06-22 18:53:18 +05:30
parent 0cb22945fe
commit 82a704ab44
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
app/ghcup/Main.hs
View File

@ -1702,6 +1702,11 @@ Make sure to clean up #{tmpdir} afterwards.|])
else putStrLn uri' >> pure ExitSuccess else putStrLn uri' >> pure ExitSuccess
Nuke -> do 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 "Initiating Nuclear Sequence 🚀🚀🚀"
runLogger $ $logInfo "Nuking in 3...2...1" runLogger $ $logInfo "Nuking in 3...2...1"