From 72a7ecc252e2993bee42303628614aa93cb3221f Mon Sep 17 00:00:00 2001 From: Chris Done Date: Wed, 18 Feb 2015 22:38:45 +0100 Subject: [PATCH] Slightly less wordy progress report --- Stackage/ShakeBuild.hs | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/Stackage/ShakeBuild.hs b/Stackage/ShakeBuild.hs index 397ae192..9934e9d8 100644 --- 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