diff options
Diffstat (limited to '')
| -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 |