Module Diagnostics.One

val diag : Cobol_common__.Diagnostics_sigs.severity -> ?tags:tag list -> ?loc:Srcloc.srcloc -> (_, t) Pretty.func
val hint : ?tags:tag list -> ?loc:Srcloc.srcloc -> (_, t) Pretty.func
val note : ?tags:tag list -> ?loc:Srcloc.srcloc -> (_, t) Pretty.func
val info : ?tags:tag list -> ?loc:Srcloc.srcloc -> (_, t) Pretty.func
val warn : ?tags:tag list -> ?loc:Srcloc.srcloc -> (_, t) Pretty.func
val error : ?tags:tag list -> ?loc:Srcloc.srcloc -> (_, t) Pretty.func
val blind : t -> t