From 0f6381e67bc9e77f242c4ddb6d599e155defd8e4 Mon Sep 17 00:00:00 2001
From: Arjun Kathuria <arjun.kathuria8@gmail.com>
Date: Fri, 18 Jun 2021 15:09:01 +0530
Subject: [PATCH] Move Nuke Command a little down in the file

---
 app/ghcup/Main.hs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/app/ghcup/Main.hs b/app/ghcup/Main.hs
index e7258b1..8b8e008 100644
--- a/app/ghcup/Main.hs
+++ b/app/ghcup/Main.hs
@@ -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