Added record keys to FormData.t, should be compatible (and the externals are kept for compatibility)

Author: TheSpyder

src/Webapi/Fetch/Webapi__Fetch__AbortController.res

@@ -4,5 +4,5 @@ type t = {signal: signal}
 @new external make: unit => t = "AbortController"
 @send external abort: t => unit = "abort"
 
-/** For compatibility. Prefer the record field. */
+@ocaml.doc("For compatibility. Prefer the record field.")
 @get external signal: t => signal = "signal"

src/Webapi/Webapi__FormData.res

@@ -9,7 +9,11 @@ module EntryValue = {
     }
 }
 
-type t
+type t = private {
+  keys: Webapi__Iterator.t<string>,
+  values: Webapi__Iterator.t<EntryValue.t>,
+  entries: Webapi__Iterator.t<(string, EntryValue.t)>,
+}
 
 @new external make: unit => t = "FormData"
 @send external append: (t, string, string) => unit = "append"
@@ -18,8 +22,6 @@ type t
 @send external getAll: (t, string) => array<EntryValue.t> = "getAll"
 @send external set: (t, string, string) => unit = "set"
 @send external has: (t, string) => bool = "has"
-@send external keys: t => Webapi__Iterator.t<string> = "keys"
-@send external values: t => Webapi__Iterator.t<EntryValue.t> = "values"
 
 @send external appendObject: (t, string, {..}, ~filename: string=?, unit) => unit = "append"
 
@@ -33,4 +35,9 @@ type t
 
 @send external setFile: (t, string, Webapi__File.t, ~filename: string=?, unit) => unit = "set"
 
+@ocaml.doc("For compatibility. Prefer the record field.")
+@send external keys: t => Webapi__Iterator.t<string> = "keys"
+@ocaml.doc("For compatibility. Prefer the record field.")
+@send external values: t => Webapi__Iterator.t<EntryValue.t> = "values"
+@ocaml.doc("For compatibility. Prefer the record field.")
 @send external entries: t => Webapi__Iterator.t<(string, EntryValue.t)> = "entries"

src/Webapi/Webapi__FormData.resi

@@ -8,7 +8,11 @@ module EntryValue: {
   let classify: t => [> #String(string) | #File(Webapi__File.t)]
 }
 
-type t
+type t = private {
+  keys: Webapi__Iterator.t<string>,
+  values: Webapi__Iterator.t<EntryValue.t>,
+  entries: Webapi__Iterator.t<(string, EntryValue.t)>,
+}
 
 @new external make: unit => t = "FormData"
 @send external append: (t, string, string) => unit = "append"