diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/protocols/Directory.ml | 2 | ||||
| -rw-r--r-- | lib/protocols/Directory.mli | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lib/protocols/Directory.ml b/lib/protocols/Directory.ml index 5a2637f..5b21668 100644 --- a/lib/protocols/Directory.ml +++ b/lib/protocols/Directory.ml @@ -7,7 +7,7 @@ type Handle.protocol += Directory of implementation type t = implementation -let make impl = Directory impl +let make impl = Directory (impl :> implementation) let from handle = Handle.into handle (function Directory impl -> Some impl | _ -> None) diff --git a/lib/protocols/Directory.mli b/lib/protocols/Directory.mli index b7bc69c..5bf5277 100644 --- a/lib/protocols/Directory.mli +++ b/lib/protocols/Directory.mli @@ -5,7 +5,7 @@ class type implementation = object method find : string -> Handle.t option end -val make : implementation -> Handle.protocol +val make : #implementation -> Handle.protocol val from : Handle.t -> t Handle.interface option |