From 4e40107ef948bd0f04ea948a2129a728a7f3efe1 Mon Sep 17 00:00:00 2001
From: Daniel Gröber <dxld@darkboxed.org>
Date: Sat, 31 Oct 2015 00:37:01 +0100
Subject: spec: Show ghc exit codes before exiting with failure

---
 tests/Spec.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tests')

diff --git a/tests/Spec.hs b/tests/Spec.hs
index 1294dd8..c8a6be6 100644
--- a/tests/Spec.hs
+++ b/tests/Spec.hs
@@ -64,7 +64,7 @@ main = do
   rvs <- mapM compilePrivatePkgDb cabalVers
 
   if any isLeft' rvs
-     then exitFailure
+     then print rvs >> exitFailure
      else exitSuccess
  where
    isLeft' (Left _) = True
-- 
cgit v1.2.3