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/Grammar/Macros.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/GF/Grammar/Macros.hs')

diff --git a/src/GF/Grammar/Macros.hs b/src/GF/Grammar/Macros.hs
index 8b9f825b5..6769e44cf 100644
--- a/src/GF/Grammar/Macros.hs
+++ b/src/GF/Grammar/Macros.hs
@@ -588,6 +588,12 @@ composOp co trm =
      do cc' <- mapPairListM (co . snd) cc
         i'  <- changeTableType co i
         return (T i' cc')
+
+   V ty vs ->
+     do ty' <- co ty
+        vs' <- mapM co vs
+        return (V ty' vs')
+
    Let (x,(mt,a)) b -> 
      do a'  <- co a
         mt' <- case mt of
-- 
cgit v1.2.3