diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-08 00:59:05 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-08 00:59:05 -0300 |
| commit | f49890e12d7eb6a766b966438cd475f7cbf5081b (patch) | |
| tree | dc0b3e09181f9aa091a10ef7eaed86670c570d70 /lib/kernel/Session.ml | |
| parent | 8f5a9291647d53dd3a912853f5c230cdcb13cb74 (diff) | |
| download | RNT-f49890e12d7eb6a766b966438cd475f7cbf5081b.tar.gz RNT-f49890e12d7eb6a766b966438cd475f7cbf5081b.zip | |
rework evaluators and add schema scope
Diffstat (limited to 'lib/kernel/Session.ml')
| -rw-r--r-- | lib/kernel/Session.ml | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lib/kernel/Session.ml b/lib/kernel/Session.ml index 4bce1ac..1abd278 100644 --- a/lib/kernel/Session.ml +++ b/lib/kernel/Session.ml @@ -2,7 +2,7 @@ module Make (S : Abstract.Storage.STORAGE) = struct module SI = Storage.Make (S) module B = Branch.Make (S) - class session ?evaluators storage state = + class session storage state = object (self) inherit Lifecycle.exclusive inherit Identity.of_id @@ -18,11 +18,10 @@ module Make (S : Abstract.Storage.STORAGE) = struct function | "branch" -> SI.with_read storage (fun tx -> - B.load ?evaluators tx storage (Atomic.get state).Protocols.Session.snapshot ) + B.load tx storage (Atomic.get state).Protocols.Session.snapshot ) |> Result.map Option.some | _ -> Ok None end - let make ?evaluators storage state = - new session ?evaluators storage state |> Protocols.Handle.make + let make storage state = new session storage state |> Protocols.Handle.make end |