diff options
| author | bjorn <bjorn@bringert.net> | 2008-09-15 13:16:04 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-09-15 13:16:04 +0000 |
| commit | 3a7888e66008f1df2e68474c94f94c82f6042383 (patch) | |
| tree | 441d94d08d4734360541ea6e86f52ab058b7a2e6 /src/GF/Infra/CompactPrint.hs | |
| parent | dbb0f3f3e464044aef1de3abfc1286569ea6543f (diff) | |
A somewhat better solution to the words/UTF-8 problem: do encoding last, but only on what appears to be string literals.
Diffstat (limited to 'src/GF/Infra/CompactPrint.hs')
| -rw-r--r-- | src/GF/Infra/CompactPrint.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/GF/Infra/CompactPrint.hs b/src/GF/Infra/CompactPrint.hs index ca2452de6..486c9e183 100644 --- a/src/GF/Infra/CompactPrint.hs +++ b/src/GF/Infra/CompactPrint.hs @@ -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 |