GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-09 03:02:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

internal representation for param value index

Browse Source
This commit is contained in:
aarne
2006-11-14 19:13:33 +00:00
parent 7fc40d2b7a
commit 4b28aa89fa
16 changed files with 89 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/UseGrammar/Information.hs
View File

@@ -129,10 +129,10 @@ getInformation opts st c = allChecks $ [
rs <- return []
returnm i $ IFunCnc i tr rs tr ---
ResOper (Yes ty) (Yes tr) -> returnm i $ IOper i ty tr
ResParam (Yes ps) -> do
ResParam (Yes (ps,_)) -> do
ts <- allParamValues src (QC i c)
returnm i $ IParam i ps ts
ResValue (Yes ty) -> returnm i $ IValue i ty ---
ResValue (Yes (ty,_)) -> returnm i $ IValue i ty ---
_ -> prtBad "nothing available for" i
lookInCan (i,m) = do