GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-22 17:42: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 a2929ac2b1
commit cb6244c820
8 changed files with 56 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/PGF.hs
View File

@@ -279,7 +279,7 @@ languages pgf = cncnames pgf
languageCode pgf lang =
fmap (replace '_' '-') $ lookConcrFlag pgf lang (mkCId "language")
categories pgf = [DTyp [] c [EMeta i | (Hyp _ _,i) <- zip hs [0..]] | (c,hs) <- Map.toList (cats (abstract pgf))]
categories pgf = [DTyp [] c (map EMeta [0..length hs]) | (c,hs) <- Map.toList (cats (abstract pgf))]
startCat pgf = DTyp [] (lookStartCat pgf) []