diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-07 18:25:43 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-07 18:25:43 -0300 |
| commit | 932e657e38665afa1da1aab549977841abbd9dcf (patch) | |
| tree | b2c0b3d30b7aaab7347300b3932a9f03e4f64f9a /lib/kernel/Session.ml | |
| parent | cfc641a9bb97c94e5993f895a8bcdf24214adc83 (diff) | |
| download | RNT-932e657e38665afa1da1aab549977841abbd9dcf.tar.gz RNT-932e657e38665afa1da1aab549977841abbd9dcf.zip | |
drop journal in favor of local branch history
Diffstat (limited to '')
| -rw-r--r-- | lib/kernel/Session.ml | 7 | ||||
| -rw-r--r-- | lib/kernel/Session.mli | 3 |
2 files changed, 6 insertions, 4 deletions
diff --git a/lib/kernel/Session.ml b/lib/kernel/Session.ml index 1abd278..4bce1ac 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 storage state = + class session ?evaluators storage state = object (self) inherit Lifecycle.exclusive inherit Identity.of_id @@ -18,10 +18,11 @@ module Make (S : Abstract.Storage.STORAGE) = struct function | "branch" -> SI.with_read storage (fun tx -> - B.load tx storage (Atomic.get state).Protocols.Session.snapshot ) + B.load ?evaluators tx storage (Atomic.get state).Protocols.Session.snapshot ) |> Result.map Option.some | _ -> Ok None end - let make storage state = new session storage state |> Protocols.Handle.make + let make ?evaluators storage state = + new session ?evaluators storage state |> Protocols.Handle.make end diff --git a/lib/kernel/Session.mli b/lib/kernel/Session.mli index be4451b..77c7d5d 100644 --- a/lib/kernel/Session.mli +++ b/lib/kernel/Session.mli @@ -1,3 +1,4 @@ module Make (S : Abstract.Storage.STORAGE) : sig - val make : S.connection -> Protocols.Session.state -> Protocols.Handle.t + val make : + ?evaluators:Protocols.Handle.t -> S.connection -> Protocols.Session.state -> Protocols.Handle.t end |