mirror of
https://github.com/mirage/qubes-mirage-firewall.git
synced 2024-10-01 01:05:39 -04:00
16 lines
427 B
OCaml
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. *)
|