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