From a3acc318ead5620ac20f70815b4dfb0810ccd2a4 Mon Sep 17 00:00:00 2001
From: Marcos Magueta <maguetamarcos@gmail.com>
Date: Mon, 12 Oct 2026 11:47:14 -0300
Subject: abstracting headers and merkle of list construction

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

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

diff --git a/lib/kernel/Namespace.ml b/lib/kernel/Namespace.ml
index c7c0767..80c446f 100644
--- a/lib/kernel/Namespace.ml
+++ b/lib/kernel/Namespace.ml
@@ -12,7 +12,7 @@ class namespace =
         Utilities.Atomic.mswap entries (fun e ->
             let existing = BatMap.find_opt key e in
             if existing = reference then begin
-              Option.map Protocols.Handle.release existing |> ignore;
+              Option.iter Protocols.Handle.release existing;
               match value with
               | Some v -> Ok (BatMap.add key (Protocols.Handle.move v) e)
               | None -> Ok (BatMap.remove key e)
-- 
cgit v1.2.3