diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-12 11:58:25 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-12 11:58:25 -0300 |
| commit | ad33454a204aa5791445e7d15f02ba0447fff85e (patch) | |
| tree | b1730a9ac5b40ff58ddc23976cd5df5dac924231 /lib/protocols/Relation.ml | |
| parent | d4f603fa04283efe54c79b5f7664c4c9bc193857 (diff) | |
| download | RNT-ad33454a204aa5791445e7d15f02ba0447fff85e.tar.gz RNT-ad33454a204aa5791445e7d15f02ba0447fff85e.zip | |
relation scan with enumerable and release
Diffstat (limited to 'lib/protocols/Relation.ml')
| -rw-r--r-- | lib/protocols/Relation.ml | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/lib/protocols/Relation.ml b/lib/protocols/Relation.ml index c1cdfee..e475919 100644 --- a/lib/protocols/Relation.ml +++ b/lib/protocols/Relation.ml @@ -31,9 +31,5 @@ let heading relation = let read relation = let open Utilities.Result in let* heading = heading relation in - let* enumerable = Enumerable.require relation in - let* cursor = Enumerable.enumerate enumerable in - Handle.releasing cursor (fun () -> - let* scan = Cursor.require cursor in - let* tuples = Cursor.drain scan () in - Ok (heading, BatFingerTree.to_list tuples) ) + let* tuples = Enumerable.scan relation (fun scan -> Cursor.drain scan ()) in + Ok (heading, BatFingerTree.to_list tuples) |