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) =