diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-11-12 17:25:00 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-11-12 17:25:00 +0000 |
| commit | 7e40df7d4c4dc475db08483dac5fd01823598a26 (patch) | |
| tree | 9d324298e7104fac03b8cff732500d3125494712 /src/GF/Grammar | |
| parent | 5d06a3107825aae976181cdc6aac0af4dbc2f2c8 (diff) | |
made compile from source use optimized modules internally
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 |