From 36121dd7bd6c1a3d36ffea3c985d2fb2e8de379b Mon Sep 17 00:00:00 2001 From: Simmo Saan Date: Mon, 15 Jun 2026 13:33:38 +0300 Subject: [PATCH] Add all possible failures to GobYaml.to_string' Based on ocaml-yaml source. --- src/util/std/gobYaml.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/util/std/gobYaml.ml b/src/util/std/gobYaml.ml index e1473d32d4..69ea841b4e 100644 --- a/src/util/std/gobYaml.ml +++ b/src/util/std/gobYaml.ml @@ -3,7 +3,7 @@ let to_string' ?(len=65535 * 4) ?encoding ?scalar_style ?layout_style v = let rec aux len = match Yaml.to_string ~len ?encoding ?scalar_style ?layout_style v with | Ok _ as o -> o - | Error (`Msg ("scalar failed" | "doc_end failed" | "seq_end failed" | "mapping_start failed")) when len < Sys.max_string_length / 2 -> + | Error (`Msg ("stream_start failed" | "stream_end failed" | "doc_start failed" | "doc_end failed" | "scalar failed" | "seq_start failed" | "seq_end failed" | "mapping_start failed" | "mapping_end failed" | "alias failed")) when len < Sys.max_string_length / 2 -> aux (len * 2) | Error (`Msg _) as e -> e in