A somewhat better solution to the words/UTF-8 problem: do encoding last, but only on what appears to be string literals.

This commit is contained in:
bjorn
2008-09-15 13:16:04 +00:00
parent a39f8cc5da
commit 3857f4a6a6
3 changed files with 12 additions and 3 deletions

View File

@@ -5,8 +5,7 @@ compactPrint = compactPrintCustom keywordGF (const False)
compactPrintGFCC = compactPrintCustom (const False) keywordGFCC
-- FIXME: using words is not safe, since this is run on UTF-8 encoded data.
compactPrintCustom pre post = id -- dps . concat . map (spaceIf pre post) . words
compactPrintCustom pre post = dps . concat . map (spaceIf pre post) . words
dps = dropWhile isSpace