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/Source/SourceToGrammar.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/GF/Source/SourceToGrammar.hs')

diff --git a/src/GF/Source/SourceToGrammar.hs b/src/GF/Source/SourceToGrammar.hs
index 38a55e4d5..1ab949c9d 100644
--- a/src/GF/Source/SourceToGrammar.hs
+++ b/src/GF/Source/SourceToGrammar.hs
@@ -350,6 +350,8 @@ transExp x = case x of
   ETable cases  -> liftM (G.T G.TRaw) (transCases cases)
   ETTable exp cases -> 
     liftM2 (\t c -> G.T (G.TTyped t) c) (transExp exp) (transCases cases)
+  EVTable exp cases -> 
+    liftM2 (\t c -> G.V t c) (transExp exp) (mapM transExp cases)
   ECase exp cases  -> do
     exp' <- transExp exp
     cases' <- transCases cases
-- 
cgit v1.2.3