diff options
Diffstat (limited to 'lib/runtime/Context.ml')
| -rw-r--r-- | lib/runtime/Context.ml | 14 |
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) } |
