From 5a4f7d5ed6e5d6b2711db316e8de06cea78b54ec Mon Sep 17 00:00:00 2001
From: Estevan Castilho <tevo@riajuu.net>
Date: Sat, 15 Aug 2026 00:09:22 +0000
Subject: Allow storage backend addresses to be labels rather than hashes

---
 lib/kernel/Storage.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/kernel/Storage.ml')

diff --git a/lib/kernel/Storage.ml b/lib/kernel/Storage.ml
index 952b306..376d839 100644
--- a/lib/kernel/Storage.ml
+++ b/lib/kernel/Storage.ml
@@ -16,7 +16,7 @@ module Make (S : Abstract.Storage.STORAGE) = struct
   let store_blob tx blob =
     let open Utilities.Result in
     let address = Concepts.Hash.hash_of_blob blob in
-    let* () = S.put tx address blob in
+    let* () = S.put tx (S.Hash address) blob in
     Ok address
 
 end
-- 
cgit v1.2.3