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 warning

Browse source
This commit is contained in:
Simon Cruanes 2023-12-26 21:21:23 -05:00
parent ca22f07ca3
commit c2551a7e4b
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/fuchsia/dune
View file

@ -4,7 +4,6 @@
(name trace_fuchsia) (name trace_fuchsia)
(public_name trace-fuchsia) (public_name trace-fuchsia)
(synopsis "A high-performance backend for trace, emitting a Fuchsia trace into a file") (synopsis "A high-performance backend for trace, emitting a Fuchsia trace into a file")
(flags :standard -w -27) ; TODO: remove
(libraries trace.core trace.private.util thread-local-storage (libraries trace.core trace.private.util thread-local-storage
(re_export trace-fuchsia.write) (re_export trace-fuchsia.write)
mtime mtime.clock.os atomic unix threads)) mtime mtime.clock.os atomic unix threads))

2
src/fuchsia/fcollector.ml
View file

@ -235,7 +235,7 @@ struct
() ()
let name_process name : unit = let name_process name : unit =
let out, tls = get_thread_output () in let out, _tls = get_thread_output () in
FWrite.Kernel_object.(encode out ~name ~ty:ty_process ~kid:pid ~args:[] ()) FWrite.Kernel_object.(encode out ~name ~ty:ty_process ~kid:pid ~args:[] ())
let name_thread name : unit = let name_thread name : unit =