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_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