From 698333df9cb8cf5061f2b70c872e76186a85a659 Mon Sep 17 00:00:00 2001
From: Daniel Gröber <dxld@darkboxed.org>
Date: Mon, 16 Jan 2017 10:24:48 +0100
Subject: Fix spec warnings

---
 tests/Spec.hs | 4 ++--
 1 file 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
-- 
cgit v1.2.3