git.iko.soy/elk
on master help sign in
Print errors more nicely
ce652d9Evan Czaplicki
compiler/Compiler.hs+1−1
compare with master
unifiedsplit
@@ -101,7 +101,7 @@ buildFile flags moduleNum numModules filePath =
101 obj <-
101 obj <-
102 if takeExtension filePath == ".js" then return source else
102 if takeExtension filePath == ".js" then return source else
103 case buildFromSource (no_prelude flags) source of
103 case buildFromSource (no_prelude flags) source of
104− Left err -> print err >> exitFailure
104+ Left err -> mapM print err >> exitFailure
105 Right modul -> return . jsModule $ (modul :: MetadataModule () ())
105 Right modul -> return . jsModule $ (modul :: MetadataModule () ())
106 createDirectoryIfMissing True (output_directory flags)
106 createDirectoryIfMissing True (output_directory flags)
107 writeFile (elmo flags filePath) obj
107 writeFile (elmo flags filePath) obj