sig
  val proceed_to_mass_killing :
    Ketrew.Persistent_data.t ->
    (bool,
     [> `Database of
          [> `Act of Trakeva.Action.t
           | `Get of Trakeva.Key_in_collection.t
           | `Get_all of string
           | `Load of string ] *
          string
      | `Database_unavailable of string
      | `Missing_data of string
      | `Target of [> `Deserilization of string ] ])
    Unix_io.Deferred_result.t
  val add_target_ids_to_kill_list :
    Ketrew.Persistent_data.t ->
    string list ->
    (unit,
     [> `Database of [> `Act of Trakeva.Action.t | `Load of string ] * string
      | `Database_unavailable of string ])
    Unix_io.Deferred_result.t
end