diff options
Diffstat (limited to 'lib/kernel/Session.ml')
| -rw-r--r-- | lib/kernel/Session.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/kernel/Session.ml b/lib/kernel/Session.ml index 1abd278..231f518 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.exclusive + inherit Lifecycle.counted inherit Identity.of_id method to_string = "session" val storage : S.connection = storage @@ -13,6 +13,7 @@ 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 destroy = () method find = function |