@@ -44,4 +44,4 @@ setupParser :: IParser a -> String -> Either [P.Doc] a
44setupParser p source =
44setupParser p source =
45 case iParse p "" source of
45 case iParse p "" source of
46 Right result -> Right result
46 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 ]