diff options
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 |