From 1aa8abb074787dde7124a0e548b98dfbf670d409 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Wed, 24 May 2006 15:40:15 +0000
Subject: updated dialogue to multimodal ; bug fixes in grammar compilation

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

(limited to 'src/GF/Canon')

diff --git a/src/GF/Canon/Look.hs b/src/GF/Canon/Look.hs
index 1fef9b586..1ac39c695 100644
--- a/src/GF/Canon/Look.hs
+++ b/src/GF/Canon/Look.hs
@@ -158,6 +158,9 @@ ccompute cnc = comp []
         R rs -> maybe (Bad ("unknown label" +++ prt l +++ "in" +++ prt u'))
                       return $ 
                         lookup l [ (x,y) | Ass x y <- rs]
+        FV rrs -> do
+          mapM (\r -> compt (P r l)) rrs >>= return . FV
+
         _    -> return $ P u' l
     FV ts    -> liftM FV (mapM compt ts)
     C E b    -> compt b
-- 
cgit v1.2.3