diff options
| author | bjorn <bjorn@bringert.net> | 2008-08-18 12:34:56 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-08-18 12:34:56 +0000 |
| commit | dc1db399f698ec80ca80cf2e0925239527087a01 (patch) | |
| tree | 40a662b47aac25bcb054b1955cc86e9202e133de /src/GF | |
| parent | 255b5488f453efdfefd4edaed2ce2eeb1a8d545c (diff) | |
When producing PGF, do UTF-8 encoding of the whole file after pretty printing instead of walking through the PGF structure before pretty-printing.
The old code was brittle, and only converted strings in the lins and opers, not in printnames and parsers. The old code also double encoded some grammars when using gfc to combine PGF files.
Diffstat (limited to 'src/GF')
| -rw-r--r-- | src/GF/Compile/Export.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/GF/Compile/Export.hs b/src/GF/Compile/Export.hs index 21ecb3d15..9e9a99e99 100644 --- a/src/GF/Compile/Export.hs +++ b/src/GF/Compile/Export.hs @@ -58,5 +58,4 @@ outputConcr pgf = case cncnames pgf of cnc:_ -> cnc printPGF :: PGF -> String -printPGF = -- encodeUTF8 . -- fromPGF does UTF8 encoding - printTree . fromPGF +printPGF = encodeUTF8 . printTree . fromPGF |