From e27f58fa2be5a29991f73da252a629a10c9f70bc Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 23 Oct 2014 11:59:57 +0300
Subject: [PATCH] Be less verbose

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

diff --git a/Stackage/Test.hs b/Stackage/Test.hs
index 84555cbe..05f87b62 100644
--- a/Stackage/Test.hs
+++ b/Stackage/Test.hs
@@ -237,7 +237,7 @@ runTestSuite cabalVersion settings testdir docdir
 
             enewPath <- try $ canonicalizePath $ docdir </> package </> packageName' <.> "haddock"
             case enewPath :: Either IOException FilePath of
-                Left e -> print e
+                Left _ -> return () -- print e
                 Right newPath -> atomicModifyIORef haddockFilesRef $ \hfs'
                     -> ((package, newPath) : hfs', ())