runtime(Js.{FormData,Blob,File}): port @mel.send externals to use @mel.send

jscomp/runtime/js_blob.ml

@@ -64,7 +64,8 @@ external bytes : t -> Js.uint8Array Js.promise = "bytes"
 (** [bytes t] returns a Promise that resolves with a [Js.uint8Array] containing
     the contents of the blob as an array of bytes. *)
 
-external slice : ?start:int -> ?end_:int -> ?contentType:string -> t -> t
+external slice :
+  ?start:int -> ?end_:int -> ?contentType:string -> (t[@mel.this]) -> t
   = "slice"
 [@@mel.send]
 (** [slice ?start ?end_ ?contentType t] creates and returns a new Blob object

jscomp/runtime/js_file.ml

@@ -87,7 +87,8 @@ external bytes : t -> Js.uint8Array Js.promise = "bytes"
 (** [bytes t] returns a Promise that resolves with a [Js.uint8Array] containing
     the contents of the file as an array of bytes. *)
 
-external slice : ?start:int -> ?end_:int -> ?contentType:string -> t -> t
+external slice :
+  ?start:int -> ?end_:int -> ?contentType:string -> (t[@mel.this]) -> t
   = "slice"
 [@@mel.send]
 (** [slice ?start ?end_ ?contentType t] creates and returns a new File object

jscomp/runtime/js_formData.ml

@@ -43,7 +43,7 @@ external append :
   value:
     ([ `String of string | `Object of < .. > Js.t | `Dict of _ Js.dict ]
     [@mel.unwrap]) ->
-  t ->
+  (t[@mel.this]) ->
   unit = "append"
 [@@mel.send]
 (** [append t ~name ~value] appends a new value onto an existing key inside a
@@ -53,25 +53,25 @@ external appendBlob :
   name:string ->
   value:([ `Blob of Js.blob | `File of Js.file ][@mel.unwrap]) ->
   ?filename:string ->
-  t ->
+  (t[@mel.this]) ->
   unit = "append"
 [@@mel.send]
 (** [appendBlob t ~name ~value] appends a new value onto an existing key inside
     a FormData object, or adds the key if it does not already exist. This
     method differs from [append] in that instances in the Blob hierarchy can
     pass a third filename argument. *)
 
-external delete : name:string -> t -> unit = "delete"
+external delete : name:string -> (t[@mel.this]) -> unit = "delete"
 [@@mel.send]
 (** [delete t ~name] deletes a key and its value(s) from a FormData object. *)
 
-external get : name:string -> t -> entryValue option = "get"
+external get : name:string -> (t[@mel.this]) -> entryValue option = "get"
 [@@mel.send] [@@mel.return null_to_opt]
 (** [get t ~name] returns the first value associated with a given key from
     within a FormData object. If you expect multiple values and want all of
     them, use {!getAll} instead. *)
 
-external getAll : name:string -> t -> entryValue array = "getAll"
+external getAll : name:string -> (t[@mel.this]) -> entryValue array = "getAll"
 [@@mel.send]
 (** [getAll t ~name] returns all the values associated with a given key from
     within a FormData object. *)
@@ -80,7 +80,7 @@ external set :
   name:string ->
   ([ `String of string | `Object of < .. > Js.t | `Dict of _ Js.dict ]
   [@mel.unwrap]) ->
-  t ->
+  (t[@mel.this]) ->
   unit = "set"
 [@@mel.send]
 (** [set t ~name ~value] sets a new value for an existing key inside a FormData
@@ -90,15 +90,15 @@ external setBlob :
   name:string ->
   ([ `Blob of Js.blob | `File of Js.file ][@mel.unwrap]) ->
   ?filename:string ->
-  t ->
+  (t[@mel.this]) ->
   unit = "set"
 [@@mel.send]
 (** [setBlob t ~name ~value ?filename] sets a new value for an existing key
     inside a FormData object, or adds the key/value if it does not already
     exist. This method differs from [set] in that instances in the Blob
     hierarchy can pass a third filename argument. *)
 
-external has : name:string -> t -> bool = "has"
+external has : name:string -> (t[@mel.this]) -> bool = "has"
 [@@mel.send]
 (** [has ~name t] returns whether a FormData object contains a certain key. *)