qubes-mirage-firewall/cleanup.mli
2015-12-30 11:07:17 +00:00

16 lines
427 B
OCaml

(* Copyright (C) 2015, Thomas Leonard <thomas.leonard@unikernel.com>
See the README file for details. *)
(** Register actions to take when a resource is finished.
Like [Lwt_switch], but synchronous. *)
type t
val create : unit -> t
val on_cleanup : t -> (unit -> unit) -> unit
(** Register a new action to take on cleanup. *)
val cleanup : t -> unit
(** Run cleanup tasks, starting with the most recently added. *)