Rollback previous webapi

ml-in-barcelona · Jun 29, 2023 · 26ca628 · 26ca628
1 parent 0a20d44
commit 26ca628
Show file tree

Hide file tree

Showing 96 changed files with 6,740 additions and 25 deletions.
diff --git a/packages/melange-fetch/src/Fetch.ml b/packages/melange-fetch/src/Fetch.ml
@@ -22,8 +22,10 @@ module AbortController = struct
 
   (* external signal : t -> signal = "signal" [@@bs.get] *)
   let signal _ = assert false
+
   (* external abort : unit = "abort" [@@bs.send.pipe: t] *)
   let abort _ = ()
+
   (* external make : unit -> t = "AbortController" [@@bs.new] *)
   let make () = assert false
 end

diff --git a/packages/melange-runtime/dom_storage.ml b/packages/melange-runtime/dom_storage.ml
@@ -1,18 +1,20 @@
 type t = Dom_storage2.t
 
 (* external getItem : string -> string option = "getItem"
-  [@@bs.send.pipe: t] [@@bs.return null_to_opt] *)
+   [@@bs.send.pipe: t] [@@bs.return null_to_opt] *)
 let getItem _k = None
 
 (* external setItem : string -> string -> unit = "setItem" [@@bs.send.pipe: t] *)
 let setItem _k _v = ()
+
 (* external removeItem : string -> unit = "removeItem" [@@bs.send.pipe: t] *)
 let removeItem _k = ()
+
 (* external clear : unit -> unit = "clear" [@@bs.send.pipe: t] *)
 let clear _ = ()
 
 (* external key : int -> string option = "key"
-  [@@bs.send.pipe: t] [@@bs.return null_to_opt] *)
+   [@@bs.send.pipe: t] [@@bs.return null_to_opt] *)
 let key _ = None
 
 (* external length : t -> int = "length" [@@bs.get] *)

diff --git a/packages/melange-runtime/dom_storage2.ml b/packages/melange-runtime/dom_storage2.ml
@@ -1,18 +1,20 @@
 type t
 
 (* external getItem : string -> string option = "getItem"
-  [@@bs.send.pipe: t] [@@bs.return null_to_opt] *)
+   [@@bs.send.pipe: t] [@@bs.return null_to_opt] *)
 let getItem _k = None
 
 (* external setItem : string -> string -> unit = "setItem" [@@bs.send.pipe: t] *)
 let setItem _k _v = ()
+
 (* external removeItem : string -> unit = "removeItem" [@@bs.send.pipe: t] *)
 let removeItem _k = ()
+
 (* external clear : unit -> unit = "clear" [@@bs.send.pipe: t] *)
 let clear _ = ()
 
 (* external key : int -> string option = "key"
-  [@@bs.send.pipe: t] [@@bs.return null_to_opt] *)
+   [@@bs.send.pipe: t] [@@bs.return null_to_opt] *)
 let key _ = None
 
 (* external length : t -> int = "length" [@@bs.get] *)

diff --git a/packages/melange-webapi/src/dune → packages/melange-webapi/src/_dune b/packages/melange-webapi/src/dune → packages/melange-webapi/src/_dune