use reraise

This commit is contained in:
Corentin Leruth 2024-09-24 21:13:19 +02:00
parent 00d46841e4
commit ce23facec1

View file

@ -11,6 +11,10 @@ module GC_metrics = GC_metrics
module Metrics_callbacks = Metrics_callbacks
module Trace_context = Trace_context
external reraise : exn -> 'a = "%reraise"
(** This is equivalent to [Lwt.reraise]. We inline it here so we don't force
to use Lwt's latest version *)
module Trace = struct
include Trace
@ -30,7 +34,7 @@ module Trace = struct
with e ->
let bt = Printexc.get_raw_backtrace () in
let () = finally (Error (e, bt)) in
raise e
reraise e
end
module Metrics = struct