summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorPhilFreeman <>2015-03-18 00:08:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2015-03-18 00:08:00 (GMT)
commit60cc603d9533094f3e224517801af909e62f0c5a (patch)
tree76b7cf0e32fa5b4c78aa223093cf3693ab13f3c5 /tests
parentce534e93c9b8ca5318d48b274a455af79fe594ed (diff)
version 0.6.90.6.9
Diffstat (limited to 'tests')
-rw-r--r--tests/Main.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/Main.hs b/tests/Main.hs
index 47922b0..e7ac794 100644
--- a/tests/Main.hs
+++ b/tests/Main.hs
@@ -77,7 +77,7 @@ assertDoesNotCompile preludeExterns inputFile = do
putStrLn $ "Assert " ++ inputFile ++ " does not compile"
assert preludeExterns (P.defaultCompileOptions { P.optionsAdditional = P.CompileOptions "Tests" [] [] }) inputFile $ \e ->
case e of
- Left _ -> return Nothing
+ Left err -> putStrLn err >> return Nothing
Right _ -> return $ Just "Should not have compiled"
findNodeProcess :: IO (Maybe String)