simon/moonpool
1
0
Fork 0
mirror of https://github.com/c-cube/moonpool.git synced 2025-12-06 03:05:30 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

add Exn_bt.pp

Browse source
This commit is contained in:
Simon Cruanes 2024-04-01 12:54:05 -04:00
parent ba1876f957
commit 0d325741f4
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/core/exn_bt.ml
View file

@ -13,6 +13,7 @@ let[@inline] get_callstack n exn =
make exn bt make exn bt
let show self = Printexc.to_string (fst self) let show self = Printexc.to_string (fst self)
let pp out self = Format.pp_print_string out (show self)
let[@inline] raise self = Printexc.raise_with_backtrace (exn self) (bt self) let[@inline] raise self = Printexc.raise_with_backtrace (exn self) (bt self)
type nonrec 'a result = ('a, t) result type nonrec 'a result = ('a, t) result

2
src/core/exn_bt.mli
View file

@ -22,4 +22,6 @@ val raise : t -> 'a
val show : t -> string val show : t -> string
(** Simple printing *) (** Simple printing *)
val pp : Format.formatter -> t -> unit
type nonrec 'a result = ('a, t) result type nonrec 'a result = ('a, t) result