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/Cursor.ml | |
| parent | d4f603fa04283efe54c79b5f7664c4c9bc193857 (diff) | |
| download | RNT-ad33454a204aa5791445e7d15f02ba0447fff85e.tar.gz RNT-ad33454a204aa5791445e7d15f02ba0447fff85e.zip | |
relation scan with enumerable and release
Diffstat (limited to '')
| -rw-r--r-- | lib/protocols/Cursor.ml | 2 | ||||
| -rw-r--r-- | lib/protocols/Cursor.mli | 6 |
2 files changed, 8 insertions, 0 deletions
diff --git a/lib/protocols/Cursor.ml b/lib/protocols/Cursor.ml index f9bd697..f53bfa1 100644 --- a/lib/protocols/Cursor.ml +++ b/lib/protocols/Cursor.ml @@ -39,3 +39,5 @@ let drain i ?(limit = 256) () = if batch.exhausted then Ok tuples else loop tuples in loop BatFingerTree.empty + +let consuming cursor f = Handle.releasing cursor (fun () -> Result.bind (require cursor) f) diff --git a/lib/protocols/Cursor.mli b/lib/protocols/Cursor.mli index ff6c027..deccf2a 100644 --- a/lib/protocols/Cursor.mli +++ b/lib/protocols/Cursor.mli @@ -19,3 +19,9 @@ val drain : ?limit:int -> unit -> (Concepts.Tuple.t BatFingerTree.t, Concepts.Condition.condition) result + +(** [f] over [cursor], which is released once [f] returns. *) +val consuming : + Handle.t -> + (t Handle.interface -> ('a, Concepts.Condition.condition) result) -> + ('a, Concepts.Condition.condition) result |