Module Lint.Diagnostic

type t
module Severity : sig ... end
val create : from:int -> to_:int -> severity:Severity.t -> ?mark_class:string -> ?source:string -> message:string -> unit -> t