aboutsummaryrefslogtreecommitdiffstats
path: root/lib/runtime/Context.ml
diff options
context:
space:
mode:
Diffstat (limited to 'lib/runtime/Context.ml')
-rw-r--r--lib/runtime/Context.ml14
1 files changed, 0 insertions, 14 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) }