diff options
-rw-r--r-- | tests/Spec.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/Spec.hs b/tests/Spec.hs index ad97df3..bc5f60b 100644 --- a/tests/Spec.hs +++ b/tests/Spec.hs @@ -84,12 +84,12 @@ main = do where status = case rv of Right _ -> "suceeded" - Left (ExitFailure rvc) -> + Left rvc -> "failed (exit code "++show rvc++")" let drvs = cabalVers `zip` rvs - mapM printStatus (cabalVers `zip` rvs) + mapM_ printStatus (cabalVers `zip` rvs) if any isLeft' $ map snd $ filter ((/=Left HEAD) . fst) drvs then exitFailure else exitSuccess |