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