From 87b55df10f00fd23d89a89bfb7c4354ff455d83d Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Tue, 11 Jan 2005 15:06:12 +0000
Subject: -val optimization

---
 src/GF/Canon/CanonToGrammar.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/GF/Canon/CanonToGrammar.hs')

diff --git a/src/GF/Canon/CanonToGrammar.hs b/src/GF/Canon/CanonToGrammar.hs
index 75dc81bc0..e53af46be 100644
--- a/src/GF/Canon/CanonToGrammar.hs
+++ b/src/GF/Canon/CanonToGrammar.hs
@@ -136,6 +136,10 @@ redCTerm x = case x of
                   [G.PV _] -> G.TTyped ctype'
                   _ -> G.TComp ctype'
     return $ G.T tinfo $ zip ps' ts'
+  V ctype ts  -> do
+    ctype' <- redCType ctype
+    ts' <- mapM redCTerm ts
+    return $ G.V ctype' ts'
   S term0 term  -> liftM2 G.S (redCTerm term0) (redCTerm term)
   C term0 term  -> liftM2 G.C (redCTerm term0) (redCTerm term)
   FV terms  -> liftM G.FV $ mapM redCTerm terms
-- 
cgit v1.2.3