From 730a9905f3ae44d2349649187dd49792bd8f1973 Mon Sep 17 00:00:00 2001 From: bjorn Date: Mon, 28 Jan 2008 21:43:04 +0000 Subject: [PATCH] UTF-8 encode in printGFCC. --- src/GF/Devel/PrintGFCC.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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