diff --git a/src/emitter/emitter.ml b/src/emitter/emitter.ml index 7b8ffbfb..a940fc43 100644 --- a/src/emitter/emitter.ml +++ b/src/emitter/emitter.ml @@ -56,6 +56,7 @@ let tap (f : 'a -> unit) (self : 'a t) : 'a t = in { self with emit } +(** Dummy emitter, doesn't accept or emit anything. *) let dummy : _ t = { enabled = (fun () -> false);