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