Format + changelog

Author: vouillon

CHANGES.md

@@ -9,6 +9,7 @@
 * Runtime: refactor caml_xmlhttprequest_create implementation (#1846)
 * Runtime: update constant imports to use `node:fs` module (#1850)
 * Runtime: make Obj.dup work with floats and boxed numbers (#1871)
+* Lib: make the Wasm version of Json.output work with native ints and JavaScript objects (#1872)
 
 ## Bug fixes
 * Runtime: fix path normalization (#1848)

lib/js_of_ocaml/json.ml

@@ -116,9 +116,9 @@ let rec write b v =
           write_int64 b i
       | id -> failwith (Printf.sprintf "Json.output: unsupported custom value %s " id)
     else if t = Obj.abstract_tag
-      then
-        (* Presumably a JavaScript value *)
-        Buffer.add_string b (Js.to_string (json##stringify v))
+    then
+      (* Presumably a JavaScript value *)
+      Buffer.add_string b (Js.to_string (json##stringify v))
     else failwith (Printf.sprintf "Json.output: unsupported tag %d " t)
 
 let to_json v =

lib/tests/test_json.ml

@@ -63,7 +63,13 @@ let%expect_test _ =
   [%expect {| 2 |}]
 
 let%expect_test "JavaScript object" =
-  let x = object%js val x = 1 val y = Js.string "abcd" end in
+  let x =
+    object%js
+      val x = 1
+
+      val y = Js.string "abcd"
+    end
+  in
   let s = Json.output x in
   let s1 = Js.to_string s in
   Printf.printf "%s\n" s1;