diff options
Diffstat (limited to 'src/GF/Grammar')
| -rw-r--r-- | src/GF/Grammar/Lookup.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/GF/Grammar/Lookup.hs b/src/GF/Grammar/Lookup.hs index b8afbc21e..83d6787ef 100644 --- a/src/GF/Grammar/Lookup.hs +++ b/src/GF/Grammar/Lookup.hs @@ -17,6 +17,7 @@ lookupResDef gr m c = do info <- lookupInfo mo c case info of ResOper _ (Yes t) -> return $ qualifAnnot m t + ResOper _ Nope -> return $ Q m c AnyInd _ n -> lookupResDef gr n c ResParam _ -> return $ QC m c ResValue _ -> return $ QC m c @@ -31,6 +32,7 @@ lookupResType gr m c = do info <- lookupInfo mo c case info of ResOper (Yes t) _ -> return $ qualifAnnot m t + ResOper (May n) _ -> lookupResType gr n c AnyInd _ n -> lookupResType gr n c ResParam _ -> return $ typePType ResValue (Yes t) -> return $ qualifAnnotPar m t |