diff --git a/src/fuchsia/dune b/src/fuchsia/dune index f8fd6c6..aedeea1 100644 --- a/src/fuchsia/dune +++ b/src/fuchsia/dune @@ -4,7 +4,6 @@ (name trace_fuchsia) (public_name trace-fuchsia) (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 (re_export trace-fuchsia.write) mtime mtime.clock.os atomic unix threads)) diff --git a/src/fuchsia/fcollector.ml b/src/fuchsia/fcollector.ml index f7219d3..aa43342 100644 --- a/src/fuchsia/fcollector.ml +++ b/src/fuchsia/fcollector.ml @@ -235,7 +235,7 @@ struct () 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:[] ()) let name_thread name : unit =