Source file `raised_exn.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
open Core
open! Import

type t =
  { exn : exn
  ; backtrace : Backtrace.t
  }
[@@deriving sexp_of]

let create exn = { exn; backtrace = Backtrace.Exn.most_recent () }

let reraise_with_message { exn; backtrace } msg =
  Exn.raise_with_original_backtrace (Exn.Reraised (msg, exn)) backtrace
;;

let reraise { exn; backtrace } = Exn.raise_with_original_backtrace exn backtrace