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

Refactor grammar export code.

Browse Source
This commit is contained in:
bjorn
2008-06-17 12:29:11 +00:00
parent fe6255bf2e
commit dacf248160
5 changed files with 44 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src-3.0/GF/Compile/GFCCtoHaskell.hs
View File

@@ -27,15 +27,15 @@ import Data.List --(isPrefixOf, find, intersperse)
import qualified Data.Map as Map
-- | the main function
grammar2haskell :: PGF
-> String -- ^ Module name.
grammar2haskell :: String -- ^ Module name.
-> PGF
-> String
grammar2haskell gr name = encodeUTF8 $ foldr (++++) [] $
grammar2haskell name gr = encodeUTF8 $ foldr (++++) [] $
haskPreamble name ++ [datatypes gr', gfinstances gr']
where gr' = hSkeleton gr
grammar2haskellGADT :: PGF -> String -> String
grammar2haskellGADT gr name = encodeUTF8 $ foldr (++++) [] $
grammar2haskellGADT :: String -> PGF -> String
grammar2haskellGADT name gr = encodeUTF8 $ foldr (++++) [] $
["{-# OPTIONS_GHC -fglasgow-exts #-}"] ++
haskPreamble name ++ [datatypesGADT gr', gfinstances gr']
where gr' = hSkeleton gr