diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-12-21 00:01:45 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-12-21 00:01:45 +0000 |
| commit | 15fd1d590a70be3af1b4e0a6488ebba795922342 (patch) | |
| tree | 6d1216f60425c92b1830cf7dce6722490fa96f3e /src/GF/JavaScript/PrintJS.hs | |
| parent | 7cceec08026535852091aa3db2ce73da32c06e17 (diff) | |
Generate JavaScript type annotator. Use lindef in JavaScript.
Diffstat (limited to 'src/GF/JavaScript/PrintJS.hs')
| -rw-r--r-- | src/GF/JavaScript/PrintJS.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/GF/JavaScript/PrintJS.hs b/src/GF/JavaScript/PrintJS.hs index af9504c74..16883682f 100644 --- a/src/GF/JavaScript/PrintJS.hs +++ b/src/GF/JavaScript/PrintJS.hs @@ -145,6 +145,7 @@ instance Print Expr where ENull -> prPrec i 16 (concatD [doc (showString "null")]) EThis -> prPrec i 16 (concatD [doc (showString "this")]) EFun ids stmts -> prPrec i 16 (concatD [doc (showString "function") , doc (showString "(") , prt 0 ids , doc (showString ")") , doc (showString "{") , prt 0 stmts , doc (showString "}")]) + EArray exprs -> prPrec i 16 (concatD [doc (showString "[") , prt 0 exprs , doc (showString "]")]) ESeq exprs -> prPrec i 16 (concatD [doc (showString "(") , prt 0 exprs , doc (showString ")")]) prtList es = case es of |