From 9cbaf09aaefb7e358bb18ac2eb31b0493f4b2fbb Mon Sep 17 00:00:00 2001 From: Estevan Castilho Date: Sat, 1 Aug 2026 00:34:42 +0000 Subject: Be a bit more specific on this TODO --- lib/kernel/Merkle.ml | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'lib/kernel/Merkle.ml') diff --git a/lib/kernel/Merkle.ml b/lib/kernel/Merkle.ml index f58935f..82fdae0 100644 --- a/lib/kernel/Merkle.ml +++ b/lib/kernel/Merkle.ml @@ -109,7 +109,10 @@ module Make : TREE = functor (S : Abstract.Storage.STORAGE) (K : KEY) -> struct let to_blob node = to_bencode node |> Concepts.Codec.Bencode.to_blob - (* FIXME *) + (* TODO: we should probably cache this inside the node itself rather + than recalculating it every time. We could also allow the user to + create "uninterned" nodes that are not storage-backed, that could + be used for intermediates and the like. *) let hash_of node = to_blob node |> Concepts.Hash.hash_of_blob let find tx node = -- cgit v1.2.3