Slightly less wordy progress report

2026-03-11 03:06:35 +01:00 · 2015-02-18 22:38:45 +01:00 · 2015-02-18 22:38:45 +01:00 · 72a7ecc252
commit 72a7ecc252
parent b2b5758ff0
1 changed files with 6 additions and 5 deletions
--- a/Stackage/ShakeBuild.hs
+++ b/Stackage/ShakeBuild.hs
@ -512,11 +512,12 @@ cabal env prefix logfile cwd args = do
               (\ClosedStream UseProvidedHandle UseProvidedHandle ->
                     (return ()))
           return ExitSuccess
-    logLn env Normal
-              (prefix <> T.pack (fromMaybe "" (listToMaybe args)) <> ": " <>
-               case code of
-                 ExitFailure{} -> "FAIL"
-                 ExitSuccess{} -> "OK")
+    case code of
+      ExitFailure{} ->
+          logLn env Normal
+                    (prefix <> T.pack (fromMaybe "" (listToMaybe args)) <> ": " <>
+                     "FAIL")
+      ExitSuccess{} -> return ()
    return code
    where cmd' = "cabal" :: String
          exitFailing :: ProcessExitedUnsuccessfully -> IO ExitCode