#!/usr/bin/env ocamlscript
(*
 * power-reboot
 * ------------
 * Copyright : (c) 2009, Jeremie Dimino <jeremie@dimino.org>
 * Licence   : BSD3
 *
 * This file is a part of obus, an ocaml implementation of D-Bus.
 *)

Ocaml.packs := ["obus.hal"; "lwt.syntax"]
--

(* Make the computer to reboot *)

let _ = Lwt_main.run begin
  lwt computer = Lazy.force Hal_device.computer in
  Hal_device.System_power_management.reboot computer
end
