aboutsummaryrefslogtreecommitdiffstats
path: root/lib/runtime
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--lib/runtime/Context.ml14
-rw-r--r--lib/runtime/Context.mli11
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