internal representation for param value index

2006-11-14 19:13:33 +00:00
parent 7fc40d2b7a
commit 4b28aa89fa
16 changed files with 89 additions and 61 deletions
--- a/src/GF/Canon/CanonToGrammar.hs
+++ b/src/GF/Canon/CanonToGrammar.hs
@@ -69,7 +69,9 @@ redInfo (c,info) = errIn ("decompiling abstract" +++ show c) $ do
    AbsTrans t -> do
      return $ G.AbsTrans t

-    ResPar par -> liftM (G.ResParam . Yes) $ mapM redParam par
+    ResPar par -> do
+      par' <- mapM redParam par
+      return $ G.ResParam (Yes (par',Nothing)) ---- list of values

    CncCat pty ptr ppr -> do
      ty'  <- redCType pty