diff options
Diffstat (limited to 'src/GF/Grammar')
| -rw-r--r-- | src/GF/Grammar/Lookup.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/GF/Grammar/Lookup.hs b/src/GF/Grammar/Lookup.hs index a57793cd3..2acfa5f26 100644 --- a/src/GF/Grammar/Lookup.hs +++ b/src/GF/Grammar/Lookup.hs @@ -194,6 +194,7 @@ allParamValues cnc ptyp = case ptyp of App (Q (IC "Predef") (IC "Ints")) (EInt n) -> return [EInt i | i <- [0..n]] QC p c -> lookupParamValues cnc p c + Q p c -> lookupParamValues cnc p c ---- RecType r -> do let (ls,tys) = unzip $ sortByFst r tss <- mapM allPV tys |