msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

the embedded grammars now work with both the pure Haskell and the Haskell binding API

Browse Source
This commit is contained in:
Krasimir Angelov
2017-08-29 18:44:50 +02:00
parent 62e5852669
commit b7b7a7c91c
5 changed files with 13 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
src/compiler/GF/Compile/PGFtoHaskell.hs
View File

@@ -56,21 +56,20 @@ haskPreamble gadt name =
"import Data.Monoid"
] else []) ++
[
"import PGF hiding (Tree)",
"import qualified PGF",
"import PGF",
"----------------------------------------------------",
"-- automatic translation from GF to Haskell",
"----------------------------------------------------",
"",
"class Gf a where",
" gf :: a -> PGF.Tree",
" fg :: PGF.Tree -> a",
" gf :: a -> Expr",
" fg :: Expr -> a",
"",
predefInst gadt "GString" "String" "unStr" "mkStr",
"",
predefInst gadt "GInt" "Int" "unInt" "mkInt",
"",
predefInst gadt "GFloat" "Double" "unDouble" "mkDouble",
predefInst gadt "GFloat" "Double" "unFloat" "mkFloat",
"",
"----------------------------------------------------",
"-- below this line machine-generated",