2016-11-29 00:54:32 +04:00
|
|
|
(**************************************************************************)
|
|
|
|
(* *)
|
2017-11-14 03:36:14 +04:00
|
|
|
(* Copyright (c) 2014 - 2017. *)
|
2016-11-29 00:54:32 +04:00
|
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
|
|
(* *)
|
|
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
|
|
(* *)
|
|
|
|
(**************************************************************************)
|
|
|
|
|
2017-01-14 16:13:59 +04:00
|
|
|
type t
|
2017-11-27 09:13:12 +04:00
|
|
|
val create : unit -> t
|
|
|
|
val cancel : t -> unit Lwt.t
|
|
|
|
val cancelation : t -> unit Lwt.t
|
|
|
|
val on_cancel : t -> (unit -> unit Lwt.t) -> unit
|
|
|
|
val canceled : t -> bool
|