diff options
| author | PhilFreeman <> | 2015-03-18 00:08:00 (GMT) |
|---|---|---|
| committer | hdiff <hdiff@hdiff.luite.com> | 2015-03-18 00:08:00 (GMT) |
| commit | 60cc603d9533094f3e224517801af909e62f0c5a (patch) | |
| tree | 76b7cf0e32fa5b4c78aa223093cf3693ab13f3c5 /tests | |
| parent | ce534e93c9b8ca5318d48b274a455af79fe594ed (diff) | |
version 0.6.90.6.9
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Main.hs | 2 |
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) |