sig
  val not_authorized : OBus_error.name
  val obtain_authorization :
    action_id:string -> ?xid:int -> pid:int -> unit -> bool Lwt.t
end