@@ -122,8 +122,10 @@ buildFile flags moduleNum numModules interfaces filePath =
122 createDirectoryIfMissing True (output_directory flags)
122 createDirectoryIfMissing True (output_directory flags)
123 metaModule <-
123 metaModule <-
124 case buildFromSource (no_prelude flags) interfaces source of
124 case buildFromSource (no_prelude flags) interfaces source of
126+ mapM print (List.intersperse (P.text " ") errors)
125− Left err -> mapM print err >> exitFailure
127+ exitFailure
126− Right modul -> do
128+ Right modul -> do
127 case print_program flags of
129 case print_program flags of
128 False -> return ()
130 False -> return ()
129 True -> print . pretty $ program modul
131 True -> print . pretty $ program modul