module type S = sig .. end
sig
end
type warning = Loc.t -> string -> unit
Loc.t -> string -> unit
val default_warning : warning
warning
val current_warning : warning Pervasives.ref
warning Pervasives.ref
val print_warning : warning