aboutsummaryrefslogtreecommitdiffstats
path: root/lib/protocols/Registry.ml
diff options
context:
space:
mode:
Diffstat (limited to 'lib/protocols/Registry.ml')
-rw-r--r--lib/protocols/Registry.ml6
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)