diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-10-31 16:41:39 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-10-31 16:41:39 +0000 |
| commit | 3f4d3e69cf8755b31cbc92e779e29cc2ac5dc71b (patch) | |
| tree | 033bb9b9ddd2d7f121deb79ff5b6dee5173fa5f4 /src/GF/Canon/CanonToJS.hs | |
| parent | a2a37bc9125906785830c62e6fa85529d428d63b (diff) | |
oper and lindef in CanonToJS
Diffstat (limited to 'src/GF/Canon/CanonToJS.hs')
| -rw-r--r-- | src/GF/Canon/CanonToJS.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) = |