diff options
Diffstat (limited to 'src-3.0/GF/Compile/GFCCtoHaskell.hs')
| -rw-r--r-- | src-3.0/GF/Compile/GFCCtoHaskell.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src-3.0/GF/Compile/GFCCtoHaskell.hs b/src-3.0/GF/Compile/GFCCtoHaskell.hs index 9a5fb7ca2..94210b65e 100644 --- a/src-3.0/GF/Compile/GFCCtoHaskell.hs +++ b/src-3.0/GF/Compile/GFCCtoHaskell.hs @@ -27,12 +27,12 @@ import Data.List --(isPrefixOf, find, intersperse) import qualified Data.Map as Map -- | the main function -grammar2haskell :: GFCC -> String +grammar2haskell :: PGF -> String grammar2haskell gr = encodeUTF8 $ foldr (++++) [] $ haskPreamble ++ [datatypes gr', gfinstances gr'] where gr' = hSkeleton gr -grammar2haskellGADT :: GFCC -> String +grammar2haskellGADT :: PGF -> String grammar2haskellGADT gr = encodeUTF8 $ foldr (++++) [] $ ["{-# OPTIONS_GHC -fglasgow-exts #-}"] ++ haskPreamble ++ [datatypesGADT gr', gfinstances gr'] @@ -173,7 +173,7 @@ fInstance m (cat,rules) = --type HSkeleton = [(OIdent, [(OIdent, [OIdent])])] -hSkeleton :: GFCC -> (String,HSkeleton) +hSkeleton :: PGF -> (String,HSkeleton) hSkeleton gr = (prCId (absname gr), [(prCId c, [(prCId f, map prCId cs) | (f, (cs,_)) <- fs]) | |