ezjs_min 0.3.0 · OCaml Package

class type ['a, 'b] promise0 = object ... end

class type 'a promise = ['a, Ezjs_min__.Js.error Js_of_ocaml.Js.t] promise0

type ('a, 'b) promise_cs =
  ((unit, ('a -> unit) -> ('b -> unit) -> unit) Js_of_ocaml.Js.meth_callback ->
    ('a, 'b) promise0 Js_of_ocaml.Js.t)
    Js_of_ocaml.Js.constr

val promise : 
  (('a -> unit) -> ('b -> unit) -> unit) ->
  ('a, 'b) promise0 Js_of_ocaml.Js.t

val jthen0 : 
  ?error:('b Js_of_ocaml__Js.t -> unit) ->
  ('a, 'b Js_of_ocaml.Js.t) promise0 Js_of_ocaml.Js.t ->
  ('a -> unit) ->
  unit

val jthen : 
  ?error:(Js_of_ocaml.Js.Js_error.error_t -> unit) ->
  'a promise Js_of_ocaml.Js.t ->
  ('a -> unit) ->
  unit

val jthen0_opt : 
  ('a, 'b Js_of_ocaml.Js.t) promise0 Js_of_ocaml.Js.t ->
  ('a -> unit) option ->
  unit

val jthen_opt : 'a promise Js_of_ocaml.Js.t -> ('a -> unit) option -> unit

val rthen : 
  'a promise Js_of_ocaml.Js.t ->
  (('a, Js_of_ocaml.Js.Js_error.error_t) result -> unit) ->
  unit

val (>>=) : 'a Lwt.t -> ('a -> 'b Lwt.t) -> 'b Lwt.t

val (>|=) : 'a Lwt.t -> ('a -> 'b) -> 'b Lwt.t

val return : 'a -> 'a Lwt.t

val async : (unit -> unit Lwt.t) -> unit

val return_unit : unit Lwt.t

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

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

val to_lwt : 'a promise t -> ('a, Js_of_ocaml.Js.Js_error.error_t) result Lwt.t

val to_lwt_opt : 
  ('a -> 'b) option ->
  'a promise t ->
  ('b option, Js_of_ocaml.Js.Js_error.error_t) result Lwt.t

val to_lwt_tr : 
  ('a -> 'b) ->
  'a promise t ->
  ('b, Js_of_ocaml.Js.Js_error.error_t) result Lwt.t

val to_lwt_exn : 'a promise t -> 'a Lwt.t

val to_lwt_exn_opt : ('a -> 'b) option -> 'a promise t -> 'b option Lwt.t

val to_lwt_exn_tr : ('a -> 'b) -> 'a promise t -> 'b Lwt.t

val to_lwt_cb0 : (('a -> unit) -> 'b) -> 'a Lwt.t

val to_lwt_cb : (('a, 'b -> unit) meth_callback -> 'c) -> 'b Lwt.t

val to_lwt_cb_tr : 
  ('a -> 'b) ->
  (('c, 'a -> unit) meth_callback -> 'd) ->
  'b Lwt.t

val to_lwt_cb_opt : 
  ('a -> 'b) option ->
  (('c, 'a -> unit) meth_callback optdef -> 'd) ->
  'b option Lwt.t

val promise_lwt : 'a Lwt.t -> ('a, 'b) promise0 Js_of_ocaml.Js.t

val promise_lwt_res : 
  ('a, 'b) result Lwt.t ->
  ('a, 'b) promise0 Js_of_ocaml.Js.t

package ezjs_min