haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-03-11 11:16:34 +01:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Slightly less wordy progress report

Browse Source
This commit is contained in:
Chris Done 2015-02-18 22:38:45 +01:00
parent b2b5758ff0
commit 72a7ecc252
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Stackage/ShakeBuild.hs
View File

@ -512,11 +512,12 @@ cabal env prefix logfile cwd args = do
(\ClosedStream UseProvidedHandle UseProvidedHandle -> (\ClosedStream UseProvidedHandle UseProvidedHandle ->
(return ())) (return ()))
return ExitSuccess return ExitSuccess
case code of
ExitFailure{} ->
logLn env Normal logLn env Normal
(prefix <> T.pack (fromMaybe "" (listToMaybe args)) <> ": " <> (prefix <> T.pack (fromMaybe "" (listToMaybe args)) <> ": " <>
case code of "FAIL")
ExitFailure{} -> "FAIL" ExitSuccess{} -> return ()
ExitSuccess{} -> "OK")
return code return code
where cmd' = "cabal" :: String where cmd' = "cabal" :: String
exitFailing :: ProcessExitedUnsuccessfully -> IO ExitCode exitFailing :: ProcessExitedUnsuccessfully -> IO ExitCode