Add AbortSignal and aborted binding (#47)

* add AbortSignal and aborted binding * Add reason field Co-authored-by: Antonio Nuno Monteiro <[email protected]> * Add reason to src/Fetch.mli Co-authored-by: Antonio Nuno Monteiro <[email protected]> --------- Co-authored-by: Antonio Nuno Monteiro <[email protected]>
melange-community · Mar 12, 2024 · c5803ab · c5803ab
1 parent 39c4f3f
commit c5803ab
Show file tree

Hide file tree

Showing 2 changed files with 19 additions and 0 deletions.
diff --git a/src/Fetch.ml b/src/Fetch.ml
@@ -17,6 +17,14 @@ type urlSearchParams (* URL *)
 type blob
 type file
 
+module AbortSignal = struct
+  type t = signal
+
+  external aborted : t -> bool = "aborted" [@@mel.get]
+
+  external reason : t -> string Js.Nullable.t = "reason" [@@mel.get]
+end
+
 module AbortController = struct
   type t = abortController
 

diff --git a/src/Fetch.mli b/src/Fetch.mli
@@ -32,6 +32,17 @@ type requestMethod =
   | Patch
   | Other of string
 
+module AbortSignal : sig
+  type t = signal
+
+  external aborted : t -> bool = "aborted" [@@mel.get]
+
+
+  external reason : t -> string Js.Nullable.t = "reason" [@@mel.get]
+  (** A JavaScript value that indicates the abort reason, or undefined,
+      if not aborted. *)
+end
+
 module AbortController : sig
   (* Experimental API *)
   type t = abortController