diff options
author | Daniel Gröber <dxld@darkboxed.org> | 2017-01-16 10:24:48 +0100 |
---|---|---|
committer | Daniel Gröber <dxld@darkboxed.org> | 2017-01-16 10:29:35 +0100 |
commit | 698333df9cb8cf5061f2b70c872e76186a85a659 (patch) | |
tree | 77e07e72c0ca1fe6b52b2e6e4347a0e5b53b805a | |
parent | c2295707466156ecc3251b1c833a5c6aa0437b7c (diff) |
Fix spec warnings
-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 |