Show errors from executing processes

nix-community · Apr 4, 2016 · 14044fb · 14044fb
1 parent c77576f
commit 14044fb
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/Util.hs b/src/Util.hs
@@ -55,10 +55,9 @@ runInteractiveProcess cmd args cwd env withOutput
       getOutput = Concurrently (withOutput out)
       getErrors = Concurrently (S.fold (<>) T.empty =<< S.decodeUtf8 err)
       wait = Concurrently (S.waitForProcess pid)
-    (result, errorMessage, exit) <- runConcurrently
-                                    ((,,) <$> getOutput <*> getErrors <*> wait)
+    (errorMessage, exit) <- runConcurrently ((,) <$> getErrors <*> wait)
     case exit of
-      ExitSuccess -> pure result
+      ExitSuccess -> runConcurrently getOutput
       ExitFailure code -> throwIO (Died code errorMessage)
 
 showExceptions :: IO b -> IO (Maybe b)