@@ -101,7 +101,7 @@ buildFile flags moduleNum numModules filePath =
101101 obj <-
102102 if takeExtension filePath == ".js" then return source else
103103 case buildFromSource (no_prelude flags) source of
104− Left err -> print err >> exitFailure
104+ Left err -> mapM print err >> exitFailure
105105 Right modul -> return . jsModule $ (modul :: MetadataModule () ())
106106 createDirectoryIfMissing True (output_directory flags)
107107 writeFile (elmo flags filePath) obj