use Fun.protect in bracket

2020-12-03 16:49:28 +01:00 · 2020-12-03 16:49:28 +01:00 · 28af6b3b9e
parent 3c2e61176a
commit 28af6b3b9e
1 changed files with 1 additions and 3 deletions
--- a/bracket.ml
+++ b/bracket.ml
@ -1,7 +1,5 @@
 let bracket ~make:(lazy x) ~act ~free =
-  match act x with
-  | result      -> free x; result
-  | exception e -> free x; raise e
+  Fun.protect (fun () -> act x) ~finally:(fun () -> free x)

 let infile ~act name =
  bracket ~make:(lazy (open_in name)) ~act ~free:close_in_noerr