diff options
Diffstat (limited to 'src/GF/Infra')
| -rw-r--r-- | src/GF/Infra/CompactPrint.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/GF/Infra/CompactPrint.hs b/src/GF/Infra/CompactPrint.hs index 486c9e183..ca2452de6 100644 --- a/src/GF/Infra/CompactPrint.hs +++ b/src/GF/Infra/CompactPrint.hs @@ -5,7 +5,8 @@ compactPrint = compactPrintCustom keywordGF (const False) compactPrintGFCC = compactPrintCustom (const False) keywordGFCC -compactPrintCustom pre post = dps . concat . map (spaceIf pre post) . words +-- 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 dps = dropWhile isSpace |