val make : ?suggestion:string -> ('a, Stdlib.Format.formatter, unit, Location_.span -> t) Stdlib.format4 -> 'a
val filename_only : ?suggestion:string -> ('a, Stdlib.Format.formatter, unit, string -> t) Stdlib.format4 -> 'a
val to_string : t -> string
val raise_exception : t -> _
val to_exception : ('a, t) Result.result -> 'a
val catch : (unit -> 'a) -> ('a, t) Result.result
val accumulate_warnings : (warning_accumulator -> 'a) -> 'a with_warnings
val warning : warning_accumulator -> t -> unit
val shed_warnings : 'a with_warnings -> 'a