let restart t ids =
match t with
| `Standalone s ->
let open Standalone in
Deferred_list.while_sequential ids (Ketrew_engine.restart_target s.engine)
>>= fun (_ : Ketrew_target.id list) ->
return ()
| `Http_client c ->
Http_client.restart c ids