class[[> Basic.level ] #Basic.event]basic_channel_archiver :Stdlib.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 : Stdlib.out_channelReturns the channel used to construct the archiver.
method emit : ([> Basic.level ] #Basic.event as 'a) -> unitEmits 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