diff options
Diffstat (limited to 'lib/protocols/Relation.ml')
| -rw-r--r-- | lib/protocols/Relation.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lib/protocols/Relation.ml b/lib/protocols/Relation.ml index 9a6e739..af1201b 100644 --- a/lib/protocols/Relation.ml +++ b/lib/protocols/Relation.ml @@ -31,9 +31,7 @@ let read relation = let* heading = heading relation in let* enumerable = Enumerable.require relation in let* cursor = Enumerable.enumerate enumerable in - Fun.protect - ~finally:(fun () -> Handle.release cursor) - (fun () -> + Handle.releasing cursor (fun () -> let* scan = Cursor.require cursor in let* tuples = Cursor.drain scan () in Ok (heading, BatFingerTree.to_list tuples) ) |