From f27915b4784d64ceb2d2ebbcf7296c74f33a96ca Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Sat, 31 Oct 2026 02:54:23 -0300 Subject: key indexes by the hash of the value --- lib/kernel/SubstantialRelation.ml | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lib/kernel/SubstantialRelation.ml b/lib/kernel/SubstantialRelation.ml index fd6df6f..193df98 100644 --- a/lib/kernel/SubstantialRelation.ml +++ b/lib/kernel/SubstantialRelation.ml @@ -128,7 +128,9 @@ module Make (S : Abstract.Storage.STORAGE) = struct |> Result.map BatMap.String.of_list let prefix value = - Concepts.Encoding.Bencode.to_bytes (Concepts.Tuple.bencode_of_value value) |> Bytes.to_string + Concepts.Encoding.Bencode.to_bytes (Concepts.Tuple.bencode_of_value value) + |> Concepts.Hash.hash_of_bytes + |> Concepts.Hash.to_raw_string let reading connection start walk = let open Utilities.Result in -- cgit v1.2.3