diff options
| author | Estevan Castilho <tevo@riajuu.net> | 2026-10-10 01:09:42 +0000 |
|---|---|---|
| committer | Estevan Castilho <tevo@riajuu.net> | 2026-10-10 01:09:42 +0000 |
| commit | 2f786a514b54cf4f72eacb6578a11b20a5069aac (patch) | |
| tree | 266b3c68719dbe3928039953f75d7b3b63e3632a /lib/kernel/Session.ml | |
| parent | 9be5137143177492e82dc25e6dbd3b82e3aa7e5d (diff) | |
| download | RNT-2f786a514b54cf4f72eacb6578a11b20a5069aac.tar.gz RNT-2f786a514b54cf4f72eacb6578a11b20a5069aac.zip | |
Make sessions counted, rather than exclusive
Diffstat (limited to 'lib/kernel/Session.ml')
| -rw-r--r-- | lib/kernel/Session.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/kernel/Session.ml b/lib/kernel/Session.ml index 1abd278..0f5f353 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 @@ -14,6 +14,8 @@ module Make (S : Abstract.Storage.STORAGE) = struct method protocols = Protocols.[Directory.make self; Session.make self] method list = Ok (BatFingerTree.singleton "branch") + method destroy = () + method find = function | "branch" -> |