From 07c3ad6114efe808ee595f83f29dd0c79a6f2536 Mon Sep 17 00:00:00 2001
From: Estevan Castilho <tevo@riajuu.net>
Date: Sun, 23 Aug 2026 03:04:34 +0000
Subject: B-tree iteration constructs (#49)

* Generic `sequence`, finger tree `map2`/`zip`

* `fold_left` on B-trees

* Finger tree `join`

* `iter`, more tests

* We do not need `keys` when traversing through a trunk node
---
 lib/concepts/Relation.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/concepts/Relation.ml')

diff --git a/lib/concepts/Relation.ml b/lib/concepts/Relation.ml
index a4fb341..ef5ac12 100644
--- a/lib/concepts/Relation.ml
+++ b/lib/concepts/Relation.ml
@@ -50,7 +50,7 @@ let schema_of_bencode value =
   |> List.map (fun (name, domain) ->
          let* domain = Codec.Bencode.as_string domain in
          Ok (name, domain) )
-  |> sequence
+  |> Utilities.List.sequence
   |> Result.map schema_of_list
 
 module Body = struct
-- 
cgit v1.2.3