summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorPhilFreeman <>2014-04-15 06:55:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2014-04-15 06:55:00 (GMT)
commit365e910aab012ac04814c0059363a16bc5b48869 (patch)
tree2a16b5569b6713b729d0cd3b4523ff60c9ee45fc /tests
parent50c471402cfc96ba0453f90e09dcb249169c65dd (diff)
version 0.4.18.10.4.18.1
Diffstat (limited to 'tests')
-rw-r--r--tests/Main.hs1
1 files changed, 0 insertions, 1 deletions
diff --git a/tests/Main.hs b/tests/Main.hs
index 4d9e8b7..4d8e306 100644
--- a/tests/Main.hs
+++ b/tests/Main.hs
@@ -60,7 +60,6 @@ assertCompiles preludeJs preludeExterns inputFile = do
let options = P.defaultOptions { P.optionsMain = Just "Main", P.optionsModules = ["Main"], P.optionsCodeGenModules = ["Main"], P.optionsBrowserNamespace = Just "Tests" }
assert preludeExterns options inputFile $ either (return . Just) $ \(js, _, _) -> do
process <- findNodeProcess
- putStrLn $ preludeJs ++ js
result <- traverse (\node -> readProcessWithExitCode node [] (preludeJs ++ js)) process
case result of
Just (ExitSuccess, out, _) -> putStrLn out >> return Nothing