GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-15 14:12:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

PGF.Type.Hypo now can represent explicit and implicit arguments and argument without bound variable

Browse Source
This commit is contained in:
krasimir
2009-07-05 15:44:52 +00:00
parent 3394c171ed
commit 279ff9a6d2
8 changed files with 56 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Compile/GrammarToGFCC.hs
View File

@@ -147,7 +147,7 @@ mkPatt p = case p of
mkContext :: A.Context -> [C.Hypo]
mkContext hyps = [C.Hyp (i2i x) (mkType ty) | (x,ty) <- hyps]
mkContext hyps = [(if x == identW then C.Hyp else C.HypV (i2i x)) (mkType ty) | (x,ty) <- hyps]
mkTerm :: Term -> C.Term
mkTerm tr = case tr of