Add more space between type errors
commit1f390072c65f9c957feb259e94ea8aef1c4a48d7
authorEvan Czaplicki <info@elm-lang.org>
dateSat 3 Aug 2013, 11:39 (13 years ago)
parent0e89c32
compiler/Compiler.hs+4−2
@@ -122,8 +122,10 @@ buildFile flags moduleNum numModules interfaces filePath =
122122 createDirectoryIfMissing True (output_directory flags)
123123 metaModule <-
124124 case buildFromSource (no_prelude flags) interfaces source of
125− Left err -> mapM print err >> exitFailure
126− Right modul -> do
125+ Left errors -> do
126+ mapM print (List.intersperse (P.text " ") errors)
127+ exitFailure
128+ Right modul -> do
127129 case print_program flags of
128130 False -> return ()
129131 True -> print . pretty $ program modul