summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/GF/Devel/PrintGFCC.hs3
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