From 424ddd538ccf864c0b3c3c079ecbc33fa0f50ddc Mon Sep 17 00:00:00 2001 From: Ambre Austen Suhamy Date: Wed, 19 Aug 2026 18:22:05 +0200 Subject: [PATCH] Json schema: remove Variants and Tuples as they're removed in yojson.3.0.0 Signed-off-by: Ambre Austen Suhamy --- pipeline/cb-schema/json.ml | 4 +--- pipeline/cb-schema/schema.ml | 2 +- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/pipeline/cb-schema/json.ml b/pipeline/cb-schema/json.ml index 006bc068..15471445 100644 --- a/pipeline/cb-schema/json.ml +++ b/pipeline/cb-schema/json.ml @@ -7,9 +7,7 @@ type t = | `Float of float | `String of string | `Assoc of (string * t) list - | `List of t list - | `Tuple of t list - | `Variant of string * t option ] + | `List of t list ] let error key value_type value = match value with diff --git a/pipeline/cb-schema/schema.ml b/pipeline/cb-schema/schema.ml index 8f9810e8..131aa0ae 100644 --- a/pipeline/cb-schema/schema.ml +++ b/pipeline/cb-schema/schema.ml @@ -222,7 +222,7 @@ let result_of_json t lines = let of_json t = let lines = match Json.get_opt "lines" t with - | `Tuple [ `Int start; `Int finish ] -> [ (start, finish) ] + | `List [ `Int start; `Int finish ] -> [ (start, finish) ] | _ -> [] in {