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

Fix a couple of typos in Main.hs

Browse Source
This commit is contained in:
Arjun Kathuria 2021-06-28 19:32:09 +05:30
parent 1dfe5cfecf
commit 69a461d9c3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/ghcup/Main.hs
View File

@ -1703,7 +1703,7 @@ Make sure to clean up #{tmpdir} afterwards.|])
Nuke -> do Nuke -> do
runLogger $ $logWarn "WARNING: This will remove GHCup and all installed components from your system." 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." runLogger $ $logWarn "Waiting 10 seconds before commencing, if you want to cancel it, now would be the time."
threadDelay 10000000 -- wait 10s threadDelay 10000000 -- wait 10s
@ -1718,7 +1718,7 @@ Make sure to clean up #{tmpdir} afterwards.|])
case length leftOverFiles of case length leftOverFiles of
0 -> runLogger $ $logInfo "Nuclear Annihilation complete!" 0 -> runLogger $ $logInfo "Nuclear Annihilation complete!"
_ -> do _ -> do
runLogger $ $logWarn "These Directories have survived Nuclear Annihilation, you'd may remove them manually." runLogger $ $logWarn "These Directories/Files have survived Nuclear Annihilation, you may remove them manually."
forM_ leftOverFiles (runLogger . $logWarn . T.pack) forM_ leftOverFiles (runLogger . $logWarn . T.pack)
pure ExitSuccess pure ExitSuccess