From 7e40df7d4c4dc475db08483dac5fd01823598a26 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Mon, 12 Nov 2007 17:25:00 +0000
Subject: made compile from source use optimized modules internally

---
 src/GF/Grammar/Lookup.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/GF/Grammar')

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
-- 
cgit v1.2.3