5 lines
139 B
OCaml
5 lines
139 B
OCaml
|
[@@@warning "-27"]
|
||
|
|
(* No shutdown events on Unix. *)
|
||
|
|
let await_shutdown_request ?(can_poweroff:_) ?(can_reboot:_) () =
|
||
|
|
fst (Lwt.wait ())
|