diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-10-10 17:35:50 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-10-10 17:35:50 +0000 |
| commit | 0fdb2dbc48f4dec187168981b04ef20eef5034b9 (patch) | |
| tree | 71638e42abfa3cfdae9ce0c76444e13967079e9f /src | |
| parent | ebfef6c8cc6fe97e90053c3068eecf263e76c843 (diff) | |
patches to Now and Dan verb forms ; opers and lindefs in JS
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Devel/GFCCtoJS.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) = |