sig   type t   val description : Llvm.Diagnostic.t -> string   val severity : Llvm.Diagnostic.t -> Llvm.DiagnosticSeverity.t end