diff options
Diffstat (limited to 'lib/protocols/Addressable.ml')
| -rw-r--r-- | lib/protocols/Addressable.ml | 3 |
1 files changed, 0 insertions, 3 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) |