made compile from source use optimized modules internally

2026-05-16 06:32:51 -06:00 · 2007-11-12 17:25:00 +00:00
parent 6fac1748e1
commit d0a1572370
4 changed files with 25 additions and 19 deletions
--- 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