abort controller example

Author: TheSpyder

examples/fetch_examples.res

@@ -61,3 +61,14 @@ let _ = {
     ),
   ) |> then_(Fetch.Response.json)
 }
+
+let _ = {
+  let controller = Fetch.AbortController.make()
+
+  let _ = Fetch.fetchWithInit(
+    "/api/fruit",
+    Fetch.RequestInit.make(~signal=controller.signal, ())
+  )
+  
+  controller->Fetch.AbortController.abort
+}

lib/js/examples/fetch_examples.js

@@ -53,4 +53,10 @@ fetch("/api/upload", Webapi__Fetch.RequestInit.make(/* Post */2, {
       return prim.json();
     });
 
+var controller = new AbortController();
+
+fetch("/api/fruit", Webapi__Fetch.RequestInit.make(undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, undefined, Caml_option.some(controller.signal))(undefined));
+
+controller.abort();
+
 /*  Not a pure module */