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