From 5370c5f1ce62cc9add4f3f6523bdd1f2b897cfa0 Mon Sep 17 00:00:00 2001
From: Marcos Magueta <maguetamarcos@gmail.com>
Date: Sun, 27 Sep 2026 15:00:27 -0300
Subject: session exclusive lifetime

---
 lib/kernel/Session.ml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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

diff --git a/lib/kernel/Session.ml b/lib/kernel/Session.ml
index 75bf8c9..322d0e0 100644
--- a/lib/kernel/Session.ml
+++ b/lib/kernel/Session.ml
@@ -4,7 +4,7 @@ module Make (S : Abstract.Storage.STORAGE) = struct
 
   class session storage state =
     object (self)
-      inherit Lifecycle.null
+      inherit Lifecycle.exclusive
       inherit Identity.of_id
       method to_string = "session"
       val storage : S.connection = storage
@@ -13,7 +13,6 @@ module Make (S : Abstract.Storage.STORAGE) = struct
       method pin state' = Atomic.set state state'
       method protocols = Protocols.[Directory.make self; Session.make self]
       method list = Ok (BatFingerTree.singleton "branch")
-
       method find =
         function
         | "branch" ->
-- 
cgit v1.2.3