diff options
Diffstat (limited to 'tests/Main.hs')
| -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) |