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

Move Nuke Command a little down in the file

Browse Source
This commit is contained in:
Arjun Kathuria 2021-06-18 15:09:01 +05:30
parent 877b55e21d
commit 0f6381e67b
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
app/ghcup/Main.hs
View File

@ -1662,10 +1662,6 @@ Make sure to clean up #{tmpdir} afterwards.|])
VLeft e -> do VLeft e -> do
runLogger $ $(logError) $ T.pack $ prettyShow e runLogger $ $(logError) $ T.pack $ prettyShow e
pure $ ExitFailure 12 pure $ ExitFailure 12
Nuke -> do
putStrLn "Nuking in 3...2....1"
putStrLn "BOOM!"
pure ExitSuccess
ChangeLog ChangeLogOptions{..} -> do ChangeLog ChangeLogOptions{..} -> do
let tool = fromMaybe GHC clTool let tool = fromMaybe GHC clTool
@ -1705,6 +1701,11 @@ Make sure to clean up #{tmpdir} afterwards.|])
>> pure (ExitFailure 13) >> pure (ExitFailure 13)
else putStrLn uri' >> pure ExitSuccess else putStrLn uri' >> pure ExitSuccess
Nuke -> do
putStrLn "Nuking in 3...2....1"
putStrLn "BOOM!"
pure ExitSuccess
case res of case res of
ExitSuccess -> pure () ExitSuccess -> pure ()
ef@(ExitFailure _) -> exitWith ef ef@(ExitFailure _) -> exitWith ef