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

Added support for cf and ebnf formats

Browse Source
This commit is contained in:
aarne
2004-03-31 12:30:34 +00:00
parent 6719aedde3
commit 3f9b4e7855
17 changed files with 280 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Grammar/AppPredefined.hs
View File

@@ -16,8 +16,8 @@ typPredefined :: Ident -> Err Type
typPredefined c@(IC f) = case f of
"Int" -> return typePType
"PBool" -> return typePType
--- "PFalse" -> -- hidden
--- "PTrue" ->
"PFalse" -> return $ cnPredef "PBool"
"PTrue" -> return $ cnPredef "PBool"
"dp" -> return $ mkFunType [cnPredef "Int",typeTok] typeTok
"drop" -> return $ mkFunType [cnPredef "Int",typeTok] typeTok
"eqInt" -> return $ mkFunType [cnPredef "Int",cnPredef "Int"] (cnPredef "PBool")