diff options
| author | bjorn <bjorn@bringert.net> | 2008-01-28 21:43:04 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-01-28 21:43:04 +0000 |
| commit | 730a9905f3ae44d2349649187dd49792bd8f1973 (patch) | |
| tree | 64b28b2efa9038d5c322d72803f912ec05c0f963 /src | |
| parent | 4c3aa8c164a920abcbe306c704e6e8229a6d0025 (diff) | |
UTF-8 encode in printGFCC.
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Devel/PrintGFCC.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/GF/Devel/PrintGFCC.hs b/src/GF/Devel/PrintGFCC.hs index 700eb7ce0..9145acd83 100644 --- a/src/GF/Devel/PrintGFCC.hs +++ b/src/GF/Devel/PrintGFCC.hs @@ -5,6 +5,7 @@ import GF.GFCC.Raw.ConvertGFCC (fromGFCC) import GF.GFCC.Raw.PrintGFCCRaw (printTree) import GF.Devel.GFCCtoHaskell import GF.Devel.GFCCtoJS +import GF.Text.UTF8 -- top-level access to code generation @@ -17,5 +18,5 @@ prGFCC printer gr = case printer of _ -> printGFCC gr printGFCC :: GFCC -> String -printGFCC = printTree . fromGFCC +printGFCC = encodeUTF8 . printTree . fromGFCC |