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",
"",
"import PGF",
"import PGF hiding (Tree)",
"import qualified PGF",
"----------------------------------------------------",
"-- automatic translation from GF to Haskell",
"----------------------------------------------------",
"",
"class Gf a where",
" gf :: a -> Tree",
" fg :: Tree -> a",
" gf :: a -> PGF.Tree",
" fg :: PGF.Tree -> a",
"",
predefInst "GString" "String" "unStr" "mkStr",
"",