diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-09-25 21:51:33 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2026-09-25 21:51:33 -0300 |
| commit | 584fbca6d920e9a9f91d451667f9380714ac2175 (patch) | |
| tree | a163b916a6f8cb550c8b38ceb01ab01558687a40 /lib/protocols/Addressable.ml | |
| parent | c7b754e96714eeeb9d315ee3de402d73a27d47db (diff) | |
| download | RNT-584fbca6d920e9a9f91d451667f9380714ac2175.tar.gz RNT-584fbca6d920e9a9f91d451667f9380714ac2175.zip | |
dune fmt
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 |