From 0fdb2dbc48f4dec187168981b04ef20eef5034b9 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Wed, 10 Oct 2007 17:35:50 +0000
Subject: [PATCH] patches to Now and Dan verb forms ; opers and lindefs in JS

---
 src/GF/Devel/GFCCtoJS.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/GF/Devel/GFCCtoJS.hs b/src/GF/Devel/GFCCtoJS.hs
index bed71e10a..eef46e9cc 100644
--- a/src/GF/Devel/GFCCtoJS.hs
+++ b/src/GF/Devel/GFCCtoJS.hs
@@ -42,7 +42,7 @@ concrete2js (C.CId a) (C.CId c, cnc) =
     ++ concatMap (cncdef2js l) ds
   where 
    l  = JS.Ident c
-   ds = Map.assocs $ D.lins cnc
+   ds = concatMap Map.assocs [D.lins cnc, D.opers cnc, D.lindefs cnc]
 
 cncdef2js :: JS.Ident -> (C.CId,C.Term) -> [JS.Element]
 cncdef2js l (C.CId f, t) =