diff options
| author | bringert <bringert@cs.chalmers.se> | 2007-11-28 13:45:49 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2007-11-28 13:45:49 +0000 |
| commit | 10354e0db2041a9ce2e16f374fdb9f47779780c6 (patch) | |
| tree | 1b9691859993e6063ca7fbc1d26e2e86f86a5fbe /src/GF | |
| parent | 3ab863c1d45c60b1bb874d934bc67ed1785f12de (diff) | |
Haskell GSyntax printer?: encode generated code as UTF-8. Current GHC versions treat source files as UTF-8 encoded.
Diffstat (limited to 'src/GF')
| -rw-r--r-- | src/GF/Devel/GFCCtoHaskell.hs | 5 |
1 files 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 |