UTF-8 encode in printGFCC.

This commit is contained in:
bjorn
2008-01-28 21:43:04 +00:00
parent 4c3aa8c164
commit 730a9905f3

View File

@@ -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