ezjs_fetch 0.1 · OCaml Package

type ('a, 'b) result = ('a, 'b) Stdlib.result =

| Ok of 'a
| Error of 'b

val optdef : ('a -> 'b) -> 'c option -> 'd Js_of_ocaml.Js.optdef

val to_listf : 
  ('a -> 'b) ->
  'c Js_of_ocaml.Js.js_array Js_of_ocaml.Js.t ->
  'b list

class type 'a next = object ... end

class type 'a iterator = object ... end

class type 'a array_from = object ... end

val array_from : 
  'a iterator Js_of_ocaml.Js.t ->
  'a0 Js_of_ocaml.Js.js_array Js_of_ocaml.Js.t

class type headers = object ... end

type 'a promise = 'a Ezjs_min.Promise.promise Js_of_ocaml.Js.t

class type body = object ... end

class type request_init = object ... end

class type abort_signal = object ... end

class type fetch_init = object ... end

class type request = object ... end

class type response_js = object ... end

class type global_scope = object ... end

val request_js : 
  (Js_of_ocaml.Js.js_string Js_of_ocaml.Js.t ->
    request_init Js_of_ocaml.Js.t Js_of_ocaml.Js.optdef ->
    request Js_of_ocaml.Js.t)
    Js_of_ocaml.Js.constr

val header_js : headers Js_of_ocaml.Js.t Js_of_ocaml.Js.constr

val global_scope : global_scope Js_of_ocaml.Js.t Stdlib.ref

val init_worker : unit -> unit

val make_headers : (string * string) list -> headers Js_of_ocaml.Js.t

val get_headers : headers Js_of_ocaml.Js.t -> (string * string) list

type request_body =

| RBlob of Js_of_ocaml.File.blob Js_of_ocaml.Js.t
| RString of string
| RBuffer of Js_of_ocaml.Typed_array.arrayBuffer Js_of_ocaml.Js.t
| RFormData of Js_of_ocaml.Form.formData Js_of_ocaml.Js.t
| RUrlParam of (string * string) list

val request_init : 
  ?cache:string ->
  ?credentials:string ->
  ?headers:(string * string) list ->
  ?integrity:string ->
  ?meth:string ->
  ?mode:string ->
  ?redirect:string ->
  ?referrer:string ->
  ?body:request_body ->
  unit ->
  'a Js_of_ocaml.Js.optdef

val request : 
  ?cache:string ->
  ?credentials:string ->
  ?headers:(string * string) list ->
  ?integrity:string ->
  ?meth:string ->
  ?mode:string ->
  ?redirect:string ->
  ?referrer:string ->
  ?body:request_body ->
  string ->
  request Js_of_ocaml.Js.t

val fetch_init : 
  ?cache:string ->
  ?credentials:string ->
  ?headers:(string * string) list ->
  ?integrity:string ->
  ?meth:string ->
  ?mode:string ->
  ?redirect:string ->
  ?referrer:string ->
  ?body:request_body ->
  ?referrerPolicy:string ->
  ?keepalive:bool ->
  unit ->
  fetch_init Js_of_ocaml.Js.t Js_of_ocaml.Js.optdef

val fetch_base : 
  ?cache:string ->
  ?credentials:string ->
  ?headers:(string * string) list ->
  ?integrity:string ->
  ?meth:string ->
  ?mode:string ->
  ?redirect:string ->
  ?referrer:string ->
  ?body:request_body ->
  ?referrerPolicy:string ->
  ?keepalive:bool ->
  string ->
  response_js Js_of_ocaml.Js.t promise

val fetch_request_base : 
  request Js_of_ocaml.Js.t ->
  response_js Js_of_ocaml.Js.t promise

type 'a response = {

headers : (string * string) list;
ok : bool;
redirected : bool;
status : int;
status_text : string;
typ : string;
url : string;
body_used : bool;
body : 'a;

}

val (>>=?) : 
  ('a, 'b) result Lwt.t ->
  ('c -> ('d, 'e) result Lwt.t) ->
  ('d, 'e) result Lwt.t

val (>|=?) : ('a, 'b) result Lwt.t -> ('c -> 'd) -> ('e, 'f) result Lwt.t

val to_lwt_str : 
  ?msg:string ->
  'a Ezjs_min.Promise_lwt.promise Ezjs_min.Js.t ->
  ('b, string) result Lwt.t

val to_lwt_opt : 
  ?msg:string ->
  ('a -> 'b) ->
  'c Js_of_ocaml.Js.Opt.t Ezjs_min.Promise_lwt.promise Ezjs_min.Js.t ->
  ('d, string) result Lwt.t

val to_array_buffer : 
  < arrayBuffer : 
    'a Js_of_ocaml.Js.Opt.t Ezjs_min.Promise_lwt.promise Ezjs_min.Js.t
      Js_of_ocaml.Js.meth.. >
    Js_of_ocaml.Js.t ->
  ('b, string) result Lwt.t

val to_blob : 
  < blob : 
    'a Js_of_ocaml.Js.Opt.t Ezjs_min.Promise_lwt.promise Ezjs_min.Js.t
      Js_of_ocaml.Js.meth.. >
    Js_of_ocaml.Js.t ->
  ('b, string) result Lwt.t

val to_form_data : 
  < formData : 
    'a Js_of_ocaml.Js.Opt.t Ezjs_min.Promise_lwt.promise Ezjs_min.Js.t
      Js_of_ocaml.Js.meth.. >
    Js_of_ocaml.Js.t ->
  ('b, string) result Lwt.t

val to_js : 
  < json : 
    'a Js_of_ocaml__Js.t Js_of_ocaml.Js.Opt.t Ezjs_min.Promise_lwt.promise
      Ezjs_min.Js.t
      Js_of_ocaml.Js.meth.. >
    Js_of_ocaml.Js.t ->
  ('b Js_of_ocaml__Js.t, string) result Lwt.t

val to_text : 
  < text : 
    Js_of_ocaml.Js.js_string Js_of_ocaml.Js.t Js_of_ocaml.Js.Opt.t
      Ezjs_min.Promise_lwt.promise
      Ezjs_min.Js.t
      Js_of_ocaml.Js.meth.. >
    Js_of_ocaml.Js.t ->
  (string, string) result Lwt.t

val to_response : 
  (response_js Js_of_ocaml.Js.t -> ('a, 'b) result Lwt.t) ->
  response_js Js_of_ocaml.Js.t ->
  ('c response, 'b) result Lwt.t

val fetch : 
  ?cache:string ->
  ?credentials:string ->
  ?headers:(string * string) list ->
  ?integrity:string ->
  ?meth:string ->
  ?mode:string ->
  ?redirect:string ->
  ?referrer:string ->
  ?body:request_body ->
  ?referrerPolicy:string ->
  ?keepalive:bool ->
  string ->
  (response_js Js_of_ocaml.Js.t -> ('a, string) result Lwt.t) ->
  ('a response, string) result Lwt.t

val fetch_request : 
  request Js_of_ocaml.Js.t ->
  (response_js Js_of_ocaml.Js.t -> ('a, string) result Lwt.t) ->
  ('a response, string) result Lwt.t

package ezjs_fetch