Module Elaborate.Attempt

include module type of struct include Util.Attempt end
type failtrace = Util.Attempt.failtrace =
  1. | Failtrace of Util.Source.region * unit -> string * failtrace list
type 'a attempt = 'a Util.Attempt.attempt =
  1. | Ok of 'a
  2. | Fail of failtrace list
val depth_of : failtrace -> int
val fail : Util.Source.region -> string -> 'a attempt
val fail_silent : 'a attempt
val choose_sequential : (unit -> 'a attempt) list -> 'a attempt
val nest : Util.Source.region -> string -> 'a attempt -> 'a attempt
val short_window : int
val region_line : string -> Util.Source.region -> string
val string_of_failtrace : indent:string -> run:int -> root:bool -> last:bool -> bullet:string -> failtrace -> string
val string_of_failtraces : indent:string -> run:int -> failtrace list -> string
val string_of_failtraces_short : failtrace list -> string
val (let*) : 'a attempt -> ('a -> 'b attempt) -> 'b attempt
val (let+) : 'a attempt -> ('a -> 'b) -> 'b