Make parse errors print more nicely
commit97bd68a796d4abc7c7604ba1ef0bf0f7ba72a0e9
authorEvan Czaplicki <info@elm-lang.org>
dateMon 22 Jul 2013, 14:40 (13 years ago)
parent81522b3
compiler/Parse/Parse.hs+1−1
@@ -44,4 +44,4 @@ setupParser :: IParser a -> String -> Either [P.Doc] a
4444setupParser p source =
4545 case iParse p "" source of
4646 Right result -> Right result
47− Left err -> Left [ P.sep . map P.text . words $ "Parse error at " ++ show err ]
47+ Left err -> Left [ P.text $ "Parse error at " ++ show err ]