Truncate instead failing if string is too long in writer

Signed-off-by: Zoltan Juhasz <[email protected]>
janestreet · Oct 1, 2024 · d3aeab3 · d3aeab3
1 parent 42b7c90
commit d3aeab3
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/vendor/tracing/zero/writer.ml b/vendor/tracing/zero/writer.ml
@@ -153,9 +153,12 @@ end
 let max_interned_string_length = 32000 - 1
 
 let set_string_slot t ~string_id s =
+  let s =
+    if String.length s > max_interned_string_length
+    then String.sub s 0 max_interned_string_length
+    else s
+  in
   let str_len = String.length s in
-  if str_len > max_interned_string_length
-  then failwithf "string too long for FTF trace: %i is over the limit of 32kb" str_len ();
   (* String record *)
   let rtype = 2 in
   let rsize = 1 + round_words_for str_len in