diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/protocols/Directory.ml | 4 | ||||
| -rw-r--r-- | lib/protocols/Directory.mli | 8 |
2 files changed, 6 insertions, 6 deletions
diff --git a/lib/protocols/Directory.ml b/lib/protocols/Directory.ml index 5b21668..0d2507e 100644 --- a/lib/protocols/Directory.ml +++ b/lib/protocols/Directory.ml @@ -1,6 +1,6 @@ class type implementation = object - method list : string list - method find : string -> Handle.t option + method list : (string BatFingerTree.t, Concepts.Condition.condition) result + method find : string -> (Handle.t option, Concepts.Condition.condition) result end type Handle.protocol += Directory of implementation diff --git a/lib/protocols/Directory.mli b/lib/protocols/Directory.mli index 5bf5277..9033235 100644 --- a/lib/protocols/Directory.mli +++ b/lib/protocols/Directory.mli @@ -1,13 +1,13 @@ type t class type implementation = object - method list : string list - method find : string -> Handle.t option + method list : (string BatFingerTree.t, Concepts.Condition.condition) result + method find : string -> (Handle.t option, Concepts.Condition.condition) result end val make : #implementation -> Handle.protocol val from : Handle.t -> t Handle.interface option -val list : t Handle.interface -> string list -val find : t Handle.interface -> string -> Handle.t 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 |