diff --git a/app/ghcup/Main.hs b/app/ghcup/Main.hs index c48107c..7b31c40 100644 --- a/app/ghcup/Main.hs +++ b/app/ghcup/Main.hs @@ -235,7 +235,9 @@ Report bugs at |] 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