Don't do update check on --no-verbose

2022-03-17 21:11:39 +01:00 · 2022-03-17 21:11:39 +01:00 · fdcd6822c4
commit fdcd6822c4
parent 71390c84da
1 changed files with 3 additions and 1 deletions
--- a/app/ghcup/Main.hs
+++ b/app/ghcup/Main.hs
@ -235,7 +235,9 @@ Report bugs at <https://gitlab.haskell.org/haskell/ghcup-hs/issues>|]
                  Interactive -> pure ()
 #endif
                  -- check for new tools
-                  _ -> lookupEnv "GHCUP_SKIP_UPDATE_CHECK" >>= \case
+                  _
+                    | Just False <- optVerbose -> pure ()
+                    | otherwise -> lookupEnv "GHCUP_SKIP_UPDATE_CHECK" >>= \case
                         Nothing -> void . flip runReaderT s' . runE @'[TagNotFound, NextVerNotFound, NoToolVersionSet] $ do
                           newTools <- lift checkForUpdates 
                           forM_ newTools $ \newTool@(t, l) -> do