summaryrefslogtreecommitdiff
path: root/src/GF/Compile/Export.hs
diff options
context:
space:
mode:
authoraarne <aarne@cs.chalmers.se>2008-06-26 06:52:01 +0000
committeraarne <aarne@cs.chalmers.se>2008-06-26 06:52:01 +0000
commitf7622321de4e3fe7acee646a0fb8a817576621c3 (patch)
treeae7ff69fb86657657b3c5c01f783aec94af2d294 /src/GF/Compile/Export.hs
parent313ef2908d323269fdcaf676f157dc315fef5272 (diff)
utf8 adjustments
Diffstat (limited to 'src/GF/Compile/Export.hs')
-rw-r--r--src/GF/Compile/Export.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/GF/Compile/Export.hs b/src/GF/Compile/Export.hs
index 9e9a99e99..23b8198f8 100644
--- a/src/GF/Compile/Export.hs
+++ b/src/GF/Compile/Export.hs
@@ -58,4 +58,5 @@ outputConcr pgf = case cncnames pgf of
cnc:_ -> cnc
printPGF :: PGF -> String
-printPGF = encodeUTF8 . printTree . fromPGF
+printPGF = ---- encodeUTF8 . -- out by AR26/6/2008: the PGF may already be UTF8
+ printTree . fromPGF