GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 11:42:49 -06:00
Code Issues Packages Projects Releases Wiki Activity

Haskell GSyntax printer?: encode generated code as UTF-8. Current GHC versions treat source files as UTF-8 encoded.

Browse Source
This commit is contained in:
bringert
2007-11-28 13:45:49 +00:00
parent 2ea966ba96
commit eb31512869
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/GF/Devel/GFCCtoHaskell.hs
View File

@@ -21,18 +21,19 @@ import GF.GFCC.DataGFCC
import GF.GFCC.AbsGFCC import GF.GFCC.AbsGFCC
import GF.Data.Operations import GF.Data.Operations
import GF.Text.UTF8
import Data.List --(isPrefixOf, find, intersperse) import Data.List --(isPrefixOf, find, intersperse)
import qualified Data.Map as Map import qualified Data.Map as Map
-- | the main function -- | the main function
grammar2haskell :: GFCC -> String grammar2haskell :: GFCC -> String
grammar2haskell gr = foldr (++++) [] $ grammar2haskell gr = encodeUTF8 $ foldr (++++) [] $
haskPreamble ++ [datatypes gr', gfinstances gr', fginstances gr'] haskPreamble ++ [datatypes gr', gfinstances gr', fginstances gr']
where gr' = hSkeleton gr where gr' = hSkeleton gr
grammar2haskellGADT :: GFCC -> String grammar2haskellGADT :: GFCC -> String
grammar2haskellGADT gr = foldr (++++) [] $ grammar2haskellGADT gr = encodeUTF8 $ foldr (++++) [] $
["{-# OPTIONS_GHC -fglasgow-exts #-}"] ++ ["{-# OPTIONS_GHC -fglasgow-exts #-}"] ++
haskPreamble ++ [datatypesGADT gr', gfinstances gr', fginstances gr'] haskPreamble ++ [datatypesGADT gr', gfinstances gr', fginstances gr']
where gr' = hSkeleton gr where gr' = hSkeleton gr