simon/ocaml-trace
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-trace.git synced 2026-03-08 03:47:57 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix in trace-tef now that meta-map can raise Invalid_arg

Browse source
This commit is contained in:
Simon Cruanes 2024-03-01 15:18:04 -05:00
parent 3c2f804716
commit d0e159785e
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/tef/trace_tef.ml
View file

@ -433,7 +433,9 @@ let collector ~out () : collector =
let id = Meta_map.find_exn key_async_id es.meta in let id = Meta_map.find_exn key_async_id es.meta in
let name, flavor = Meta_map.find_exn key_async_data es.meta in let name, flavor = Meta_map.find_exn key_async_data es.meta in
let data = let data =
try !(Meta_map.find_exn key_data es.meta) with Not_found -> [] match Meta_map.find key_data es.meta with
| None -> []
| Some r -> !r
in in
let time_us = now_us () in let time_us = now_us () in
let tid = get_tid_ () in let tid = get_tid_ () in
@ -443,8 +445,9 @@ let collector ~out () : collector =
let add_data_to_manual_span (es : explicit_span) data = let add_data_to_manual_span (es : explicit_span) data =
if data <> [] then ( if data <> [] then (
let data_ref, add = let data_ref, add =
try Meta_map.find_exn key_data es.meta, false match Meta_map.find key_data es.meta with
with Not_found -> ref [], true | Some r -> r, false
| None -> ref [], true
in in
let new_data = List.rev_append data !data_ref in let new_data = List.rev_append data !data_ref in
data_ref := new_data; data_ref := new_data;