sig type t = { messages : int option; size : Core.Std.Byte_units.t option; time : (Core.Std.Time.Ofday.t * Core.Std.Zone.t) option; keep : [ `All | `At_least of int | `Newer_than of Core.Std.Time.Span.t ]; } end