class [[> Basic.level ] #Basic.event] basic_channel_archiver : Pervasives.out_channel -> object .. end
The basic channel archiver. Use new basic_channel_archiver c to
construct an archiver that emits each basic event e with a priority level
less than `Fail to the channel c using Printf.fprintf c "%s: %s\n"
e#prioritizer#tag e#message.
method channel : Pervasives.out_channel
Returns the channel used to construct the archiver.
method emit : ([> Basic.level ] #Basic.event as 'a) -> unit
Emits each basic event e with a priority level less than `Fail
to the channel c using Printf.fprintf c "%s: %s\n"
e#prioritizer#tag e#message.