Avoid explicit case analysis of logLevel

commercialhaskell · Jan 3, 2018 · 048f8e0 · 048f8e0
1 parent 09b9f7e
commit 048f8e0
Showing 1 changed file with 3 additions and 12 deletions.
diff --git a/src/Stack/Setup.hs b/src/Stack/Setup.hs
@@ -1086,27 +1086,18 @@ installGHCPosix version downloadInfo _ archiveFile archiveType tempDir destDir =
 
     let runStep step wd env cmd args = do
             menv' <- modifyEnvOverride menv (Map.union env)
-            logLevel <- logMinLevel <$> view logOptionsL
-            result <- case logLevel of
-              LevelDebug -> do
-                let logLines = CB.lines .| CL.mapM_ (logInfo . T.decodeUtf8With T.lenientDecode)
+            result <- do
+                let logLines = CL.mapM_ (logDebug . T.decodeUtf8With T.lenientDecode)
                 withWorkingDir wd
                   $ withEnvOverride menv'
                   $ withProc cmd args
                   $ try
                   . (flip withLoggedProcess_ $ \p ->
                         runConduit (getStderr p .| logLines) `concurrently_`
                         runConduit (getStdout p .| logLines))
-                  . setStdin (useHandleOpen stdin)
-
-              _ -> withWorkingDir wd
-                   $ withEnvOverride menv'
-                   $ withProc cmd args
-                   $ try
-                   . (void . readProcessStdout_)
                    -- Calling the ./configure script requires that stdin is
                    -- open
-                   . setStdin (useHandleOpen stdin)
+                  . setStdin (useHandleOpen stdin)
 
             case result of
                 Right _ -> return ()