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

Adds some logger messages.

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

4
app/ghcup/Main.hs
View File

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