mirror of
https://github.com/c-cube/moonpool.git
synced 2025-12-11 21:48:46 -05:00
25 lines
539 B
OCaml
25 lines
539 B
OCaml
(** Exception with backtrace.
|
|
|
|
@since NEXT_RELEASE *)
|
|
|
|
type t = exn * Printexc.raw_backtrace
|
|
(** An exception bundled with a backtrace *)
|
|
|
|
val exn : t -> exn
|
|
val bt : t -> Printexc.raw_backtrace
|
|
|
|
val make : exn -> Printexc.raw_backtrace -> t
|
|
(** Trivial builder *)
|
|
|
|
val get : exn -> t
|
|
(** [get exn] is [make exn (get_raw_backtrace ())] *)
|
|
|
|
val get_callstack : int -> exn -> t
|
|
|
|
val raise : t -> 'a
|
|
(** Raise the exception with its save backtrace *)
|
|
|
|
val show : t -> string
|
|
(** Simple printing *)
|
|
|
|
type nonrec 'a result = ('a, t) result
|