simon/ocaml-trace
1
0
Fork 0
mirror of https://github.com/ocaml-tracing/ocaml-trace.git synced 2026-03-07 18:37:56 -05: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 name, flavor = Meta_map.find_exn key_async_data es.meta in
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
let time_us = now_us () in
let tid = get_tid_ () in
@ -443,8 +445,9 @@ let collector ~out () : collector =
let add_data_to_manual_span (es : explicit_span) data =
if data <> [] then (
let data_ref, add =
try Meta_map.find_exn key_data es.meta, false
with Not_found -> ref [], true
match Meta_map.find key_data es.meta with
| Some r -> r, false
| None -> ref [], true
in
let new_data = List.rev_append data !data_ref in
data_ref := new_data;