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

compat fix

Browse source
This commit is contained in:
Simon Cruanes 2026-01-17 21:06:48 -05:00
parent bb78e9babb
commit eb4abf2966
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/debug/track_spans.ml
View file

@ -98,7 +98,11 @@ open struct
self.tbl_open_spans Str_map.empty self.tbl_open_spans Str_map.empty
in in
let unclosed_spans = let unclosed_spans =
{ num; by_name = Str_map.to_list names_with_count } {
num;
by_name =
Str_map.fold (fun name id l -> (name, id) :: l) names_with_count [];
}
in in
emit self unclosed_spans emit self unclosed_spans
) )