let kill t id_list =
match t with
| `Standalone s ->
let open Standalone in
Deferred_list.while_sequential id_list (fun id ->
Ketrew_engine.kill s.engine ~id)
>>= fun (_ : unit list) ->
return ()
| `Http_client c ->
Http_client.kill c id_list