Log GHC configure output on stack -v setup

If -v global flag is passed to stack-setup subcommand we log the GHC
configure output.
Ref: commercialhaskell#3716

src/Stack/Setup.hs

@@ -238,7 +238,7 @@ setupEnv mResolveMissingGHC = do
             , soptsGHCJSBootOpts = ["--clean"]
             }
 
-    (mghcBin, compilerBuild, _) <- ensureCompiler sopts
+    (mghcBin, compilerBuild, _) <- ensureCompiler sopts LevelInfo
 
     -- Modify the initial environment to include the GHC path, if a local GHC
     -- is being used
@@ -374,8 +374,9 @@ addIncludeLib (ExtraDirs _bins includes libs) config = config
 -- | Ensure compiler (ghc or ghcjs) is installed and provide the PATHs to add if necessary
 ensureCompiler :: (HasConfig env, HasGHCVariant env)
                => SetupOpts
+               -> LogLevel
                -> RIO env (Maybe ExtraDirs, CompilerBuild, Bool)
-ensureCompiler sopts = do
+ensureCompiler sopts logLevel = do
     let wc = whichCompiler (soptsWantedCompiler sopts)
     when (getGhcVersion (soptsWantedCompiler sopts) < $(mkVersion "7.8")) $ do
         logWarn "Stack will almost certainly fail with GHC below version 7.8"
@@ -467,6 +468,7 @@ ensureCompiler sopts = do
                             (soptsWantedCompiler sopts)
                             (soptsCompilerCheck sopts)
                             (soptsGHCBindistURL sopts)
+                            logLevel
                     | otherwise -> do
                         recommendSystemGhc <-
                             if soptsUseSystem sopts
@@ -848,8 +850,9 @@ downloadAndInstallCompiler :: (HasConfig env, HasGHCVariant env)
                            -> CompilerVersion 'CVWanted
                            -> VersionCheck
                            -> Maybe String
+                           -> LogLevel
                            -> RIO env Tool
-downloadAndInstallCompiler ghcBuild si wanted@GhcVersion{} versionCheck mbindistURL = do
+downloadAndInstallCompiler ghcBuild si wanted@GhcVersion{} versionCheck mbindistURL logLevel = do
     ghcVariant <- view ghcVariantL
     (selectedVersion, downloadInfo) <- case mbindistURL of
         Just bindistURL -> do
@@ -875,7 +878,7 @@ downloadAndInstallCompiler ghcBuild si wanted@GhcVersion{} versionCheck mbindist
     let installer =
             case configPlatform config of
                 Platform _ Cabal.Windows -> installGHCWindows selectedVersion
-                _ -> installGHCPosix selectedVersion downloadInfo
+                _ -> installGHCPosix selectedVersion downloadInfo logLevel
     logInfo $
         "Preparing to install GHC" <>
         (case ghcVariant of
@@ -889,7 +892,7 @@ downloadAndInstallCompiler ghcBuild si wanted@GhcVersion{} versionCheck mbindist
     ghcPkgName <- parsePackageNameFromString ("ghc" ++ ghcVariantSuffix ghcVariant ++ compilerBuildSuffix ghcBuild)
     let tool = Tool $ PackageIdentifier ghcPkgName selectedVersion
     downloadAndInstallTool (configLocalPrograms config) si (gdiDownloadInfo downloadInfo) tool installer
-downloadAndInstallCompiler compilerBuild si wanted versionCheck _mbindistUrl = do
+downloadAndInstallCompiler compilerBuild si wanted versionCheck _mbindistUrl _ = do
     config <- view configL
     ghcVariant <- view ghcVariantL
     case (ghcVariant, compilerBuild) of
@@ -928,9 +931,10 @@ downloadAndInstallPossibleCompilers
     -> CompilerVersion 'CVWanted
     -> VersionCheck
     -> Maybe String
+    -> LogLevel
     -> RIO env (Tool, CompilerBuild)
-downloadAndInstallPossibleCompilers possibleCompilers si wanted versionCheck mbindistURL =
-    go possibleCompilers Nothing
+downloadAndInstallPossibleCompilers possibleCompilers si wanted versionCheck mbindistURL logLevel =
+    go logLevel possibleCompilers Nothing
   where
     -- This will stop as soon as one of the builds doesn't throw an @UnknownOSKey@ or
     -- @UnknownCompilerVersion@ exception (so it will only try subsequent builds if one is non-existent,
@@ -939,26 +943,26 @@ downloadAndInstallPossibleCompilers possibleCompilers si wanted versionCheck mbi
     -- (if only @UnknownOSKey@ is thrown, then the first of those is rethrown, but if any
     -- @UnknownCompilerVersion@s are thrown then the attempted OS keys and available versions
     -- are unioned).
-    go [] Nothing = throwM UnsupportedSetupConfiguration
-    go [] (Just e) = throwM e
-    go (b:bs) e = do
+    go _ [] Nothing = throwM UnsupportedSetupConfiguration
+    go _ [] (Just e) = throwM e
+    go logLevel (b:bs) e = do
         logDebug $ "Trying to setup GHC build: " <> T.pack (compilerBuildName b)
-        er <- try $ downloadAndInstallCompiler b si wanted versionCheck mbindistURL
+        er <- try $ downloadAndInstallCompiler b si wanted versionCheck mbindistURL logLevel
         case er of
             Left e'@(UnknownCompilerVersion ks' w' vs') ->
                 case e of
-                    Nothing -> go bs (Just e')
+                    Nothing -> go logLevel bs (Just e')
                     Just (UnknownOSKey k) ->
-                        go bs $ Just $ UnknownCompilerVersion (Set.insert k ks') w' vs'
+                        go logLevel bs $ Just $ UnknownCompilerVersion (Set.insert k ks') w' vs'
                     Just (UnknownCompilerVersion ks _ vs) ->
-                        go bs $ Just $ UnknownCompilerVersion (Set.union ks' ks) w' (Set.union vs' vs)
+                        go logLevel bs $ Just $ UnknownCompilerVersion (Set.union ks' ks) w' (Set.union vs' vs)
                     Just x -> throwM x
             Left e'@(UnknownOSKey k') ->
                 case e of
-                    Nothing -> go bs (Just e')
-                    Just (UnknownOSKey _) -> go bs e
+                    Nothing -> go logLevel bs (Just e')
+                    Just (UnknownOSKey _) -> go logLevel bs e
                     Just (UnknownCompilerVersion ks w vs) ->
-                        go bs $ Just $ UnknownCompilerVersion (Set.insert k' ks) w vs
+                        go logLevel bs $ Just $ UnknownCompilerVersion (Set.insert k' ks) w vs
                     Just x -> throwM x
             Left e' -> throwM e'
             Right r -> return (r, b)
@@ -1042,13 +1046,14 @@ data ArchiveType
 installGHCPosix :: HasConfig env
                 => Version
                 -> GHCDownloadInfo
+                -> LogLevel
                 -> SetupInfo
                 -> Path Abs File
                 -> ArchiveType
                 -> Path Abs Dir
                 -> Path Abs Dir
                 -> RIO env ()
-installGHCPosix version downloadInfo _ archiveFile archiveType tempDir destDir = do
+installGHCPosix version downloadInfo logLevel _ archiveFile archiveType tempDir destDir = do
     platform <- view platformL
     menv0 <- getMinimalEnvOverride
     menv <- mkEnvOverride platform (removeHaskellEnvVars (unEnvOverride menv0))
@@ -1081,7 +1086,10 @@ installGHCPosix version downloadInfo _ archiveFile archiveType tempDir destDir =
 
     let runStep step wd env cmd args = do
             menv' <- modifyEnvOverride menv (Map.union env)
-            result <- try (readProcessNull (Just wd) menv' cmd args)
+            result <- case logLevel of
+              LevelDebug -> try (logProcessStderrStdout (Just wd) cmd menv' args)
+              _ -> try (readProcessNull (Just wd) menv' cmd args)
+
             case result of
                 Right _ -> return ()
                 Left ex -> do

src/Stack/SetupCmd.hs

@@ -101,12 +101,13 @@ setupParser = SetupCmdOpts
 
 setup
     :: (HasConfig env, HasGHCVariant env)
-    => SetupCmdOpts
+    => GlobalOpts
+    -> SetupCmdOpts
     -> CompilerVersion 'CVWanted
     -> VersionCheck
     -> Maybe (Path Abs File)
     -> RIO env ()
-setup SetupCmdOpts{..} wantedCompiler compilerCheck mstack = do
+setup gopts SetupCmdOpts{..} wantedCompiler compilerCheck mstack = do
     Config{..} <- view configL
     (_, _, sandboxedGhc) <- ensureCompiler SetupOpts
         { soptsInstallIfMissing = True
@@ -123,7 +124,7 @@ setup SetupCmdOpts{..} wantedCompiler compilerCheck mstack = do
         , soptsSetupInfoYaml = scoSetupInfoYaml
         , soptsGHCBindistURL = scoGHCBindistURL
         , soptsGHCJSBootOpts = scoGHCJSBootOpts ++ ["--clean" | scoGHCJSBootClean]
-        }
+        } (globalLogLevel gopts)
     let compiler = case wantedCompiler of
             GhcVersion _ -> "GHC"
             GhcjsVersion {} -> "GHCJS"

src/Stack/Solver.hs

@@ -289,7 +289,7 @@ setupCompiler compiler = do
         , soptsSetupInfoYaml     = defaultSetupInfoYaml
         , soptsGHCBindistURL     = Nothing
         , soptsGHCJSBootOpts     = ["--clean"]
-        }
+        } LevelInfo
     return dirs
 
 -- | Runs the given inner command with an updated configuration that

src/main/Main.hs

@@ -604,7 +604,7 @@ setupCmd sco@SetupCmdOpts{..} go@GlobalOpts{..} = loadConfigWithOpts go $ \lc ->
                               , configCompilerCheck (lcConfig lc)
                               , Just $ view stackYamlL bc
                               )
-           runRIO (loadMiniConfig (lcConfig lc)) $ setup sco wantedCompiler compilerCheck mstack
+           runRIO (loadMiniConfig (lcConfig lc)) $ setup go sco wantedCompiler compilerCheck mstack
            )
           Nothing
           (Just $ munlockFile lk)