diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/protocols/Directory.ml | 4 | ||||
| -rw-r--r-- | lib/protocols/Directory.mli | 2 |
2 files changed, 0 insertions, 6 deletions
diff --git a/lib/protocols/Directory.ml b/lib/protocols/Directory.ml index 0d2507e..232a47e 100644 --- a/lib/protocols/Directory.ml +++ b/lib/protocols/Directory.ml @@ -4,13 +4,9 @@ class type implementation = object end type Handle.protocol += Directory of implementation - type t = implementation let make impl = Directory (impl :> implementation) - let from handle = Handle.into handle (function Directory impl -> Some impl | _ -> None) - let list i = Handle.invoke i (fun o -> o#list) - let find i name = Handle.invoke i (fun o -> o#find name) diff --git a/lib/protocols/Directory.mli b/lib/protocols/Directory.mli index 9033235..0d78887 100644 --- a/lib/protocols/Directory.mli +++ b/lib/protocols/Directory.mli @@ -6,8 +6,6 @@ class type implementation = object end val make : #implementation -> Handle.protocol - val from : Handle.t -> t Handle.interface option - val list : t Handle.interface -> (string BatFingerTree.t, Concepts.Condition.condition) result val find : t Handle.interface -> string -> (Handle.t option, Concepts.Condition.condition) result |