Change some logging stuff

2015-05-06 16:13:08 +02:00
parent d11b12676e
commit 0f1e653f7f
4 changed files with 13 additions and 10 deletions
--- a/test/TestUtils.hs
+++ b/test/TestUtils.hs
@@ -78,7 +78,7 @@ runE = runErrorT
 runNullLog :: MonadIO m => JournalT GhcModLog m a -> m a
 runNullLog action = do
  (a,w) <- runJournalT action
-  when (w /= mempty) $ liftIO $ print w
+  liftIO $ print w
  return a

 shouldReturnError :: Show a