Module Dune_rpc_private.Diagnostic

type severity =
  1. | Error
  2. | Warning
module Promotion : sig ... end
module Id : sig ... end
type t = {
  1. targets : Target.t list;
  2. id : Id.t;
  3. message : User_message.Style.t Pp.t;
  4. loc : Loc.t option;
  5. severity : severity option;
  6. promotion : Promotion.t list;
  7. directory : string option;
  8. related : Related.t list;
}
val id : t -> Id.t
val loc : t -> Loc.t option
val message : t -> unit Pp.t
val message_with_style : t -> User_message.Style.t Pp.t
val severity : t -> severity option
val promotion : t -> Promotion.t list
val targets : t -> Target.t list
val directory : t -> string option
val to_dyn : t -> Dyn.t
val to_user_message : t -> Stdune.User_message.t
module Event : sig ... end
val sexp : t Conv.value