This commit is contained in:
Simon Cruanes 2022-03-21 10:39:54 -04:00
parent bec21639b7
commit ca16c6e68d
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4

View file

@ -47,7 +47,7 @@ module Trace = struct
let+ () = finally (Ok ()) in let+ () = finally (Ok ()) in
x) x)
(fun e -> (fun e ->
let+ () = finally (Error (Printexc.to_string e)) in let* () = finally (Error (Printexc.to_string e)) in
Lwt.fail e) Lwt.fail e)
end end