Move Nuke Command a little down in the file

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

View File

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