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/Registry.ml | |
| parent | c7b754e96714eeeb9d315ee3de402d73a27d47db (diff) | |
| download | RNT-584fbca6d920e9a9f91d451667f9380714ac2175.tar.gz RNT-584fbca6d920e9a9f91d451667f9380714ac2175.zip | |
dune fmt
Diffstat (limited to 'lib/protocols/Registry.ml')
| -rw-r--r-- | lib/protocols/Registry.ml | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lib/protocols/Registry.ml b/lib/protocols/Registry.ml index f01f06b..d7c4480 100644 --- a/lib/protocols/Registry.ml +++ b/lib/protocols/Registry.ml @@ -1,13 +1,11 @@ class type implementation = object - method update : string -> Handle.t option -> Handle.t option -> (bool, Concepts.Condition.condition) result + method update : + string -> Handle.t option -> Handle.t option -> (bool, Concepts.Condition.condition) result end type Handle.protocol += Registry of implementation - type t = implementation let make impl = Registry (impl :> implementation) - let from handle = Handle.into handle (function Registry impl -> Some impl | _ -> None) - let update i key reference value = Handle.invoke i (fun o -> o#update key reference value) |