From a2a08189a6682f236800652eeb1b8b319574fd43 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sat, 24 Nov 2012 18:45:12 +0200
Subject: [PATCH] Only print failure message if unexpected

---
 Stackage/Test.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Stackage/Test.hs b/Stackage/Test.hs
index 03ddab15..d6bcaf6f 100644
--- a/Stackage/Test.hs
+++ b/Stackage/Test.hs
@@ -54,7 +54,7 @@ runTestSuite testdir prevPassed pair@(packageName, _) = do
         then do
             removeFile logfile
             when expectedFailure $ putStrLn $ package ++ " passed, but I didn't think it would."
-        else putStrLn $ "Test suite failed: " ++ package
+        else unless expectedFailure $ putStrLn $ "Test suite failed: " ++ package
     rm_r dir
     return $! prevPassed && (passed || expectedFailure)
   where