diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-31 02:54:23 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-31 02:54:23 -0300 |
| commit | f27915b4784d64ceb2d2ebbcf7296c74f33a96ca (patch) | |
| tree | 11c7087e3723c74016f459959374d2865d759971 /lib/kernel | |
| parent | bbc6c5e2cec6cfe1551e1d819af64cfa29d7f9ef (diff) | |
| download | RNT-f27915b4784d64ceb2d2ebbcf7296c74f33a96ca.tar.gz RNT-f27915b4784d64ceb2d2ebbcf7296c74f33a96ca.zip | |
key indexes by the hash of the value
Diffstat (limited to 'lib/kernel')
| -rw-r--r-- | lib/kernel/SubstantialRelation.ml | 4 |
1 files changed, 3 insertions, 1 deletions
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 |