aboutsummaryrefslogtreecommitdiffstats
path: root/lib/kernel/SubstantialRelation.ml
diff options
context:
space:
mode:
authorMarcos Magueta <maguetamarcos@gmail.com>2026-09-18 00:24:38 -0300
committerMarcos Magueta <maguetamarcos@gmail.com>2026-09-18 00:24:38 -0300
commitc80121c23a90c60b9975e04a49d98c8dfb4866a1 (patch)
tree2aad1643bbff9bbff4cff6531cd0495fe27f7882 /lib/kernel/SubstantialRelation.ml
parent1a35fa647b3598111d7dcb281309651ab413b1bc (diff)
downloadRNT-c80121c23a90c60b9975e04a49d98c8dfb4866a1.tar.gz
RNT-c80121c23a90c60b9975e04a49d98c8dfb4866a1.zip
test mem @ merkle interface without decoding & missing value error
Diffstat (limited to 'lib/kernel/SubstantialRelation.ml')
-rw-r--r--lib/kernel/SubstantialRelation.ml3
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/kernel/SubstantialRelation.ml b/lib/kernel/SubstantialRelation.ml
index 5093ffc..0afc3f7 100644
--- a/lib/kernel/SubstantialRelation.ml
+++ b/lib/kernel/SubstantialRelation.ml
@@ -110,8 +110,7 @@ module Make (S : Abstract.Storage.STORAGE) = struct
let contains_tuple tx relation tuple =
let open Utilities.Result in
let* node = tuple_node tx relation in
- let* present = TupleSet.lookup tx (Concepts.Tuple.hash tuple) node in
- Ok (Option.is_some present)
+ TupleSet.mem tx (Concepts.Tuple.hash tuple) node
let schema_of tx relation =
let open Utilities.Result in