2016-09-08 21:13:10 +04:00
|
|
|
(**************************************************************************)
|
|
|
|
(* *)
|
2018-02-06 00:17:03 +04:00
|
|
|
(* Copyright (c) 2014 - 2018. *)
|
2016-09-08 21:13:10 +04:00
|
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
|
|
(* *)
|
|
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
|
|
(* *)
|
|
|
|
(**************************************************************************)
|
|
|
|
|
2017-01-14 16:13:27 +04:00
|
|
|
val may: f:('a -> unit Lwt.t) -> 'a option -> unit Lwt.t
|
2016-11-29 19:39:53 +04:00
|
|
|
|
2018-06-19 00:31:32 +04:00
|
|
|
val never_ending: unit -> 'a Lwt.t
|
2016-09-08 21:13:10 +04:00
|
|
|
|
|
|
|
val worker:
|
|
|
|
string ->
|
|
|
|
run:(unit -> unit Lwt.t) ->
|
|
|
|
cancel:(unit -> unit Lwt.t) ->
|
|
|
|
unit Lwt.t
|
|
|
|
|
|
|
|
val trigger: unit -> (unit -> unit) * (unit -> unit Lwt.t)
|
|
|
|
val sort: ('a -> 'a -> int Lwt.t) -> 'a list -> 'a list Lwt.t
|
2016-11-15 04:42:54 +04:00
|
|
|
|
2017-01-14 16:13:27 +04:00
|
|
|
|
2017-01-23 14:09:39 +04:00
|
|
|
val unless: bool -> (unit -> unit Lwt.t) -> unit Lwt.t
|
|
|
|
|