package febusy

  1. Overview
  2. Docs
type t =
  1. | String of string
  2. | Exn of exn * string
val string : ('a, unit, string, ('b, t) result) format4 -> 'c
val exn : exn -> ('a, unit, string, ('b, t) result) format4 -> 'c
val catch_exn : (unit -> 'a) -> (('b, 'c) result, unit, string, ('d, t) result) format4 -> ('b, 'c) result
val to_string : t -> string
val throw : ('a, t) result -> 'b