Previous  Up  

Module type Kwapp.MESSAGES

module type MESSAGES = sig .. end

The Messages functor.

Combine a MYSELF module and a VERBOSITY module to get a Messages module.

val verbose : ?notreally:bool ->
       ?chan:Pervasives.out_channel ->
       ?flush:bool ->
       ?nl:bool ->
       ?initial:bool ->
       ?myself:string option ->
       int -> ('a, unit, string, unit) Pervasives.format4 -> 'a
val warning : ?chan:Pervasives.out_channel ->
       ?myself:string option ->
       ?fatal:bool -> ('a, unit, string, unit) Pervasives.format4 -> 'a
val fatal : ?chan:Pervasives.out_channel ->
       ?myself:string option ->
       ?status:int -> ('a, unit, string, 'b) Pervasives.format4 -> 'a
val dryrot : ?chan:Pervasives.out_channel ->
       ?myself:string option ->
       ?status:int -> ?bt:bool -> ('a, unit, string, 'b) Pervasives.format4 -> 'a
val hdl : ?myself:string option -> 'a -> ('b -> 'c) -> 'b -> 'c