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

11
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
logLn env Normal case code of
(prefix <> T.pack (fromMaybe "" (listToMaybe args)) <> ": " <> ExitFailure{} ->
case code of logLn env Normal
ExitFailure{} -> "FAIL" (prefix <> T.pack (fromMaybe "" (listToMaybe args)) <> ": " <>
ExitSuccess{} -> "OK") "FAIL")
ExitSuccess{} -> return ()
return code return code
where cmd' = "cabal" :: String where cmd' = "cabal" :: String
exitFailing :: ProcessExitedUnsuccessfully -> IO ExitCode exitFailing :: ProcessExitedUnsuccessfully -> IO ExitCode