One (cobol_common.Cobol_common.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