diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-11-14 19:13:33 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-11-14 19:13:33 +0000 |
| commit | 546e778ba8c9ea4109fbe278c6363818a43eaa0f (patch) | |
| tree | 7be636d1b0a58a4fa02e5aa5ce1cdf86b65429b4 /src/GF/UseGrammar | |
| parent | f10d657df18261c688241c4463074f8bc31cf95b (diff) | |
internal representation for param value index
Diffstat (limited to 'src/GF/UseGrammar')
| -rw-r--r-- | src/GF/UseGrammar/Information.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/UseGrammar/Information.hs b/src/GF/UseGrammar/Information.hs index 900b1b126..4526980d6 100644 --- a/src/GF/UseGrammar/Information.hs +++ b/src/GF/UseGrammar/Information.hs @@ -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 |