summaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorPhilFreeman <>2015-02-03 17:05:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2015-02-03 17:05:00 (GMT)
commit20ed2828110ec7ebc926a7ca29ea4af8b2ef2eb4 (patch)
treef53ca2716554ccd4d3577d0b08e375cfae5ae715 /tests
parentc043a13adaa53d90afe00f792c9a7ff2521a5b38 (diff)
version 0.6.4.10.6.4.1
Diffstat (limited to 'tests')
-rw-r--r--tests/Main.hs4
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