diff options
| author | Estevan Castilho <tevo@riajuu.net> | 2026-09-17 03:36:30 +0000 |
|---|---|---|
| committer | Estevan Castilho <tevo@riajuu.net> | 2026-09-17 03:36:40 +0000 |
| commit | 24bb5eab738e291ee170f4fd563f39e33f65f37d (patch) | |
| tree | 701a4a30a42b1cb06e7ef126c41b7cc61315873d /lib/runtime | |
| parent | 272ac23caa835faede38156699b40f884ad2ed11 (diff) | |
| download | RNT-24bb5eab738e291ee170f4fd563f39e33f65f37d.tar.gz RNT-24bb5eab738e291ee170f4fd563f39e33f65f37d.zip | |
WIP forsake context
Diffstat (limited to 'lib/runtime')
| -rw-r--r-- | lib/runtime/Context.ml | 14 | ||||
| -rw-r--r-- | lib/runtime/Context.mli | 11 |
2 files changed, 0 insertions, 25 deletions
diff --git a/lib/runtime/Context.ml b/lib/runtime/Context.ml deleted file mode 100644 index 2189735..0000000 --- a/lib/runtime/Context.ml +++ /dev/null @@ -1,14 +0,0 @@ -module Error = struct - open Concepts.Condition - - let not_a_directory segment = - condition "not-a-directory" "A path segment named an object with no Directory protocol" - ("segment" |=| Concepts.Value.String segment) -end - -let resolve { Protocols.Context.root; _ } name = Kernel.Path.lookup root name - -let over ~snapshot ~root ?(cancelled = fun () -> false) () = - { Protocols.Context.snapshot - ; root - ; status = (fun () -> if cancelled () then `Cancelled else `Live) } diff --git a/lib/runtime/Context.mli b/lib/runtime/Context.mli deleted file mode 100644 index 214071b..0000000 --- a/lib/runtime/Context.mli +++ /dev/null @@ -1,11 +0,0 @@ -val resolve : - Protocols.Context.t -> - Kernel.Path.t -> - (Protocols.Handle.t option, Concepts.Condition.condition) result - -val over : - snapshot:Concepts.Hash.hash -> - root:Protocols.Handle.t -> - ?cancelled:(unit -> bool) -> - unit -> - Protocols.Context.t |