untagged variant for Json.t

Author: zth

jscomp/others/js_json.ml

@@ -24,7 +24,15 @@
 
 (** Efficient JSON encoding using JavaScript API *)
 
-type t
+type t =
+  | False [@as false]
+  | True [@as true]
+  | Null [@as null]
+  | String of string
+  | Number of float
+  | Object of t Js.Dict.t
+  | Array of t array
+[@@unboxed]
 
 type _ kind =
   | String : Js_string.t kind

jscomp/others/js_json.mli

@@ -30,7 +30,15 @@
 
 (** ## Types *)
 
-type t
+type t =
+  | False [@as false]
+  | True [@as true]
+  | Null [@as null]
+  | String of string
+  | Number of float
+  | Object of t Js.Dict.t
+  | Array of t array
+[@@unboxed]
 (** The JSON data structure *)
 
 (** Underlying type of a JSON value *)