Move Nuke Command a little down in the file
This commit is contained in:
parent
877b55e21d
commit
0f6381e67b
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user