lifecycle.ml
mirage-unix
1 2 3 4 [@@@warning "-27"] (* No shutdown events on Unix. *) let await_shutdown_request ?(can_poweroff:_) ?(can_reboot:_) () = fst (Lwt.wait ())
1 2 3 4
[@@@warning "-27"] (* No shutdown events on Unix. *) let await_shutdown_request ?(can_poweroff:_) ?(can_reboot:_) () = fst (Lwt.wait ())