From eb31512869440f299ed067dd0ec5e08bbb2fd5b9 Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Wed, 28 Nov 2007 13:45:49 +0000
Subject: [PATCH] Haskell GSyntax printer?: encode generated code as UTF-8.
 Current GHC versions treat source files as UTF-8 encoded.

---
 src/GF/Devel/GFCCtoHaskell.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/GF/Devel/GFCCtoHaskell.hs b/src/GF/Devel/GFCCtoHaskell.hs
index 3c1382438..2d6e761d4 100644
--- a/src/GF/Devel/GFCCtoHaskell.hs
+++ b/src/GF/Devel/GFCCtoHaskell.hs
@@ -21,18 +21,19 @@ import GF.GFCC.DataGFCC
 import GF.GFCC.AbsGFCC
 
 import GF.Data.Operations
+import GF.Text.UTF8
 
 import Data.List --(isPrefixOf, find, intersperse)
 import qualified Data.Map as Map
 
 -- | the main function
 grammar2haskell :: GFCC -> String
-grammar2haskell gr = foldr (++++) [] $  
+grammar2haskell gr = encodeUTF8 $ foldr (++++) [] $  
   haskPreamble ++ [datatypes gr', gfinstances gr', fginstances gr']
     where gr' = hSkeleton gr
 
 grammar2haskellGADT :: GFCC -> String
-grammar2haskellGADT gr = foldr (++++) [] $  
+grammar2haskellGADT gr = encodeUTF8 $ foldr (++++) [] $  
   ["{-# OPTIONS_GHC -fglasgow-exts #-}"] ++ 
   haskPreamble ++ [datatypesGADT gr', gfinstances gr', fginstances gr']
     where gr' = hSkeleton gr