Module Core.Log

type level = [
  1. | `Info
  2. | `Error
  3. | `Warn
]
val pp_error_message : loc:Basis.LexingUtil.span option -> lvl:level -> 'a Basis.Pp.printer -> 'a -> unit
val pp_runtime_message : loc:Basis.LexingUtil.span option -> lvl:level -> 'a Basis.Pp.printer -> 'a -> unit