From 3f4d3e69cf8755b31cbc92e779e29cc2ac5dc71b Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Wed, 31 Oct 2007 16:41:39 +0000
Subject: oper and lindef in CanonToJS

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

(limited to 'src/GF')

diff --git a/src/GF/Canon/CanonToJS.hs b/src/GF/Canon/CanonToJS.hs
index 47d900c9d..78f641139 100644
--- a/src/GF/Canon/CanonToJS.hs
+++ b/src/GF/Canon/CanonToJS.hs
@@ -50,7 +50,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) = 
-- 
cgit v1.2.3