sig
  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
end