expose tick function

This commit is contained in:
Simon Cruanes 2022-04-20 12:42:47 -04:00
parent 31933c9369
commit 62f3bb8b03
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4

View file

@ -144,6 +144,13 @@ module Collector = struct
match !backend with
| None -> Bytes.make 8 '?'
| Some (module B) -> B.rand_bytes_8()
(** Do background work. Call this regularly if the collector doesn't
already have a ticker thread or internal timer. *)
let tick () =
match !backend with
| None -> ()
| Some (module B) -> B.tick()
end
module Util_ = struct