module System:sig..end
val save_hostname : t -> hostname:string -> unit Lwt.t
val hostname : t -> string OBus_property.r
val can_modify : t -> bool OBus_property.r
val properties_changed : t -> (string * OBus_value.V.single) list OBus_signal.t
val check_permissions : t -> unit OBus_signal.t
val get_permissions : t -> int Lwt.t