Extracted AbortController. Can't extract other fetch submodules without changing the API (or a lot of unnecessary effort).

Author: TheSpyder

src/Webapi/Fetch/Webapi__Fetch__AbortController.res

@@ -0,0 +1,8 @@
+type signal
+type t = {signal: signal}
+
+@new external make: unit => t = "AbortController"
+@send external abort: t => unit = "abort"
+
+/** For compatibility. Prefer the record field. */
+@get external signal: t => signal = "signal"

src/Webapi/Webapi__Fetch.res

@@ -1,31 +1,27 @@
+module AbortController = Webapi__Fetch__AbortController
+
+/* * Alias for anyone upgrading */
+module FormData = Webapi__FormData
 type body
 type bodyInit
 type headers
 type headersInit
 type response
 type request
 type requestInit
-type abortController
-type signal
+type abortController = AbortController.t
+type signal = AbortController.signal
 
 /* external */
 type arrayBuffer /* TypedArray */
 type bufferSource /* Web IDL, either an arrayBuffer or arrayBufferView */
-type formData = Webapi__FormData.t/* XMLHttpRequest */
+type formData = FormData.t /* XMLHttpRequest */
 type readableStream = Webapi__ReadableStream.t /* Streams */
 type urlSearchParams /* URL */
 
 type blob = Webapi__Blob.t
 type file = Webapi__File.t
 
-module AbortController = {
-  type t = abortController
-
-  @get external signal: t => signal = "signal"
-  @send external abort: t => unit = "abort"
-  @new external make: unit => t = "AbortController"
-}
-
 type requestMethod =
   | Get
   | Head
@@ -437,9 +433,6 @@ module Response = {
   @send external clone: t => t = "clone"
 }
 
-/** Alias for anyone upgrading */
-module FormData = Webapi__FormData
-
 @val external fetch: string => Js.Promise.t<response> = "fetch"
 @val external fetchWithInit: (string, requestInit) => Js.Promise.t<response> = "fetch"
 @val external fetchWithRequest: request => Js.Promise.t<response> = "fetch"

src/Webapi/Webapi__Fetch.resi

@@ -1,3 +1,7 @@
+module AbortController = Webapi__Fetch__AbortController
+
+/** Alias for anyone upgrading */
+module FormData = Webapi__FormData
 type body
 type bodyInit
 type headers
@@ -9,11 +13,11 @@ type requestInit
 /* external */
 type arrayBuffer /* TypedArray */
 type bufferSource /* Web IDL, either an arrayBuffer or arrayBufferView */
-type formData = Webapi__FormData.t /* XMLHttpRequest */
+type formData = FormData.t /* XMLHttpRequest */
 type readableStream /* Streams */
 type urlSearchParams /* URL */
-type abortController
-type signal
+type abortController = AbortController.t
+type signal = AbortController.signal
 
 @@ocaml.text(" File API ")
 
@@ -32,18 +36,6 @@ type requestMethod =
   | Patch
   | Other(string)
 
-module AbortController: {
-  /* Experimental API */
-  type t = abortController
-
-  /* Experimental API */
-  @get external signal: t => signal = "signal"
-  /* Experimental API */
-  @send external abort: t => unit = "abort"
-  /* Experimental API */
-  @new external make: unit => t = "AbortController"
-}
-
 type referrerPolicy =
   | None
   | NoReferrer
@@ -236,9 +228,6 @@ module Response: {
   @send external text: t => Js.Promise.t<string> = "text"
 }
 
-/** Alias for anyone upgrading */
-module FormData = Webapi__FormData
-
 @val external fetch: string => Js.Promise.t<response> = "fetch"
 @val external fetchWithInit: (string, requestInit) => Js.Promise.t<response> = "fetch"
 @val external fetchWithRequest: request => Js.Promise.t<response> = "fetch"