msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

UTF-8 encode in printGFCC.

Browse Source
This commit is contained in:
bjorn
2008-01-28 21:43:04 +00:00
parent a57467fd19
commit 89371210eb
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/GF/Devel/PrintGFCC.hs
View File

@@ -5,6 +5,7 @@ import GF.GFCC.Raw.ConvertGFCC (fromGFCC)
import GF.GFCC.Raw.PrintGFCCRaw (printTree) import GF.GFCC.Raw.PrintGFCCRaw (printTree)
import GF.Devel.GFCCtoHaskell import GF.Devel.GFCCtoHaskell
import GF.Devel.GFCCtoJS import GF.Devel.GFCCtoJS
import GF.Text.UTF8
-- top-level access to code generation -- top-level access to code generation
@@ -17,5 +18,5 @@ prGFCC printer gr = case printer of
_ -> printGFCC gr _ -> printGFCC gr
printGFCC :: GFCC -> String printGFCC :: GFCC -> String
printGFCC = printTree . fromGFCC printGFCC = encodeUTF8 . printTree . fromGFCC