diff options
| author | bjorn <bjorn@bringert.net> | 2008-06-17 12:29:11 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-06-17 12:29:11 +0000 |
| commit | d13b32ea48d255c71670321c9b8d0d611afe0a17 (patch) | |
| tree | 0e4a98d507eb02f7c4e83815f66667d273d36a16 /src-3.0/GF/Compile/GFCCtoHaskell.hs | |
| parent | 2cf7a7d07eaa394c56ca020f7383ba747d9374a3 (diff) | |
Refactor grammar export code.
Diffstat (limited to 'src-3.0/GF/Compile/GFCCtoHaskell.hs')
| -rw-r--r-- | src-3.0/GF/Compile/GFCCtoHaskell.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src-3.0/GF/Compile/GFCCtoHaskell.hs b/src-3.0/GF/Compile/GFCCtoHaskell.hs index 31f1dc0b3..9d03aa490 100644 --- a/src-3.0/GF/Compile/GFCCtoHaskell.hs +++ b/src-3.0/GF/Compile/GFCCtoHaskell.hs @@ -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 |