From cfe24428fa1ebec1bd7c076830cfef63a2b7c0aa Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@posteo.de>
Date: Sun, 19 Jul 2020 00:47:20 +0200
Subject: [PATCH] Only check for upgrades when not upgrading

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

diff --git a/app/ghcup/Main.hs b/app/ghcup/Main.hs
index 5ddef19..81cd877 100644
--- a/app/ghcup/Main.hs
+++ b/app/ghcup/Main.hs
@@ -1033,7 +1033,10 @@ Report bugs at <https://gitlab.haskell.org/haskell/ghcup-hs/issues>|]
                       runLogger
                         ($(logError) [i|Error fetching download info: #{e}|])
                       exitWith (ExitFailure 2)
-          runLogger $ checkForUpdates dls pfreq
+
+          case optCommand of
+            Upgrade _ _ -> pure ()
+            _ -> runLogger $ checkForUpdates dls pfreq