chore: updates for melange 3.0

Author: mattjbray

src-js/js_json.ml

@@ -70,7 +70,7 @@ module Decode = struct
               let oks, errs =
                 arr
                 |> Js.Array.reducei
-                     (fun (oks, errs) x i ->
+                     ~f:(fun (oks, errs) x i ->
                        match decoder.dec x with
                        | Ok a ->
                            let _ = Js.Array.push a oks in
@@ -82,7 +82,7 @@ module Decode = struct
                                errs
                            in
                            (oks, errs) )
-                     ([||], [||])
+                     ~init:([||], [||])
               in
               if Js.Array.length errs > 0
               then
@@ -123,5 +123,5 @@ module Encode = struct
   include Encode.Make (Json_encodeable)
 
   let array encoder xs =
-    xs |> Js.Array.map (fun x -> encoder x) |> Js.Json.array
+    xs |> Js.Array.map ~f:(fun x -> encoder x) |> Js.Json.array
 end

src-js/js_xml.ml

@@ -12,7 +12,7 @@ module DOMParser = struct
     [@@mel.get]
 
   external querySelector :
-    Dom.element -> string -> Dom.element Js.null_undefined = "querySelector"
+    Dom.element -> string -> Dom.element Js.nullable = "querySelector"
     [@@mel.send]
 
   external textContent : Dom.element -> string = "textContent" [@@mel.get]
@@ -96,7 +96,7 @@ module Element = struct
 
 
   external append : Dom.element -> Dom.node array -> unit = "append"
-    [@@mel.send] [@@variadic]
+    [@@mel.send] [@@mel.variadic]
 
   external setAttribute : Dom.element -> string -> string -> unit
     = "setAttribute"
@@ -114,10 +114,10 @@ end
 
 module Document = struct
   external createElementNS : string -> string -> Dom.element = "createElementNS"
-    [@@scope "window", "document"]
+    [@@mel.scope "window", "document"]
 
   external createTextNode : string -> Dom.text = "createTextNode"
-    [@@scope "window", "document"]
+    [@@mel.scope "window", "document"]
 end
 
 module Encode = struct