revived GADT generation

This commit is contained in:
aarne
2011-03-04 17:05:40 +00:00
parent 8fc455f22b
commit c834cb348c

View File

@@ -49,14 +49,15 @@ haskPreamble name =
[ [
"module " ++ name ++ " where", "module " ++ name ++ " where",
"", "",
"import PGF", "import PGF hiding (Tree)",
"import qualified PGF",
"----------------------------------------------------", "----------------------------------------------------",
"-- automatic translation from GF to Haskell", "-- automatic translation from GF to Haskell",
"----------------------------------------------------", "----------------------------------------------------",
"", "",
"class Gf a where", "class Gf a where",
" gf :: a -> Tree", " gf :: a -> PGF.Tree",
" fg :: Tree -> a", " fg :: PGF.Tree -> a",
"", "",
predefInst "GString" "String" "unStr" "mkStr", predefInst "GString" "String" "unStr" "mkStr",
"", "",