paren-less

Author: bobzhang

jscomp/core/js_dump.ml

@@ -680,7 +680,9 @@ and expression_desc cxt ~(level:int) f x : cxt  =
     (match info with
      | Exp exp_info ->
        let raw_paren =
-          not (match exp_info with  Js_literal _ -> true | _ -> false || raw_snippet_exp_simple_enough s) in 
+          not (match exp_info with  
+            | Js_literal _ | Js_raw_json -> true 
+            | Js_function _ | Js_exp_unknown -> false || raw_snippet_exp_simple_enough s) in 
        if raw_paren then P.string f L.lparen;
        P.string f s ;       
        if raw_paren then  P.string f L.rparen;

jscomp/core/js_raw_info.ml

@@ -40,6 +40,7 @@ type exp =
     | RegExp of RegExp.t
   ]}
   *)
+  | Js_raw_json
   | Js_exp_unknown
 
 

jscomp/core/lam_compile_const.ml

@@ -129,7 +129,7 @@ let translate_arg_cst (cst : External_arg_spec.cst) =
      E.str i
    | Arg_js_null  -> E.nil
    | Arg_js_json s 
-     -> E.raw_js_code (Exp Js_exp_unknown) s
+     -> E.raw_js_code (Exp Js_raw_json) s
 
    | Arg_js_true  -> E.bool true
    | Arg_js_false -> E.bool false