diff options
author | PhilFreeman <> | 2015-02-03 17:05:00 (GMT) |
---|---|---|
committer | hdiff <hdiff@hdiff.luite.com> | 2015-02-03 17:05:00 (GMT) |
commit | 20ed2828110ec7ebc926a7ca29ea4af8b2ef2eb4 (patch) | |
tree | f53ca2716554ccd4d3577d0b08e375cfae5ae715 /tests | |
parent | c043a13adaa53d90afe00f792c9a7ff2521a5b38 (diff) |
version 0.6.4.10.6.4.1
Diffstat (limited to 'tests')
-rw-r--r-- | tests/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/Main.hs b/tests/Main.hs index d1b1397..bfc9930 100644 --- a/tests/Main.hs +++ b/tests/Main.hs @@ -35,7 +35,7 @@ readInput inputFiles = forM inputFiles $ \inputFile -> do return (inputFile, text) loadPrelude :: Either String (String, String, P.Environment) -loadPrelude = +loadPrelude = case P.parseModulesFromFiles id [("", P.prelude)] of Left parseError -> Left (show parseError) Right ms -> P.compile (P.defaultCompileOptions { P.optionsAdditional = P.CompileOptions "Tests" [] [] }) (map snd ms) [] @@ -85,7 +85,7 @@ findNodeProcess = runMaybeT . msum $ map (MaybeT . findExecutable) names main :: IO () main = do - putStrLn "Compiling Prelude" + putStrLn "Compiling Prelude" case loadPrelude of Left err -> putStrLn err >> exitFailure Right (preludeJs, exts, _) -> do |