sig
  val init : unit -> DBus.error
  val is_set : DBus.error -> bool
  val has_name : DBus.error -> string -> bool
end