diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/protocols/Addressable.ml | 3 | ||||
| -rw-r--r-- | lib/protocols/Addressable.mli | 2 |
2 files changed, 0 insertions, 5 deletions
diff --git a/lib/protocols/Addressable.ml b/lib/protocols/Addressable.ml index 7e97f08..e4ba5b5 100644 --- a/lib/protocols/Addressable.ml +++ b/lib/protocols/Addressable.ml @@ -3,11 +3,8 @@ class type implementation = object end type Handle.protocol += Addressable of implementation - type t = implementation let make impl = Addressable (impl :> implementation) - let from handle = Handle.into handle (function Addressable impl -> Some impl | _ -> None) - let address i = Handle.invoke i (fun o -> o#address) diff --git a/lib/protocols/Addressable.mli b/lib/protocols/Addressable.mli index 2d9c14d..0301361 100644 --- a/lib/protocols/Addressable.mli +++ b/lib/protocols/Addressable.mli @@ -5,7 +5,5 @@ class type implementation = object end val make : #implementation -> Handle.protocol - val from : Handle.t -> t Handle.interface option - val address : t Handle.interface -> Concepts.Hash.hash |