struct
module V0 = struct
type target_query = [
| `All
| `Not_finished_before of float
| `Created_after of float
] [@@deriving yojson]
type t = [
| `Get_targets of string list (* List of Ids, empty means “all” *)
| `Get_available_queries of string (* Id of the target *)
| `Call_query of (string * string) (* target-id × query-name *)
| `Submit_targets of Ketrew_target.t list
| `Kill_targets of string list (* List of Ids *)
| `Restart_targets of string list (* List of Ids *)
| `Get_target_ids of target_query
] [@@deriving yojson]
end
include Json.Versioned.Of_v0(V0)
include V0
end