From 546e778ba8c9ea4109fbe278c6363818a43eaa0f Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Tue, 14 Nov 2006 19:13:33 +0000
Subject: internal representation for param value index

---
 src/GF/Compile/GrammarToCanon.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/GF/Compile/GrammarToCanon.hs')

diff --git a/src/GF/Compile/GrammarToCanon.hs b/src/GF/Compile/GrammarToCanon.hs
index 25ec623e8..e0e245163 100644
--- a/src/GF/Compile/GrammarToCanon.hs
+++ b/src/GF/Compile/GrammarToCanon.hs
@@ -104,7 +104,7 @@ redInfo am (c,info) = errIn ("translating definition of" +++ prt c) $ do
     AbsTrans t -> 
       returns c' $ C.AbsTrans t
 
-    ResParam (Yes ps) -> do
+    ResParam (Yes (ps,_)) -> do
       ps' <- mapM redParam ps
       returns c' $ C.ResPar ps'
 
-- 
cgit v1.2.3