diff options
| author | Estevan Castilho <tevo@riajuu.net> | 2026-09-19 03:42:12 +0000 |
|---|---|---|
| committer | Estevan Castilho <tevo@riajuu.net> | 2026-09-19 03:42:12 +0000 |
| commit | 82f8bf61e1ded0488334ca4a4b859e969cac100f (patch) | |
| tree | d78ab1930fbc4666fc40fe4f2a4afadba2741f59 /lib/protocols | |
| parent | 2e8f23c7802e9afb43a0e9846416f93a63a7e592 (diff) | |
| download | RNT-82f8bf61e1ded0488334ca4a4b859e969cac100f.tar.gz RNT-82f8bf61e1ded0488334ca4a4b859e969cac100f.zip | |
Associative collections on top of prolly trees
Diffstat (limited to 'lib/protocols')
| -rw-r--r-- | lib/protocols/Associative.ml | 10 | ||||
| -rw-r--r-- | lib/protocols/Associative.mli | 4 |
2 files changed, 7 insertions, 7 deletions
diff --git a/lib/protocols/Associative.ml b/lib/protocols/Associative.ml index aa691d0..66de5ed 100644 --- a/lib/protocols/Associative.ml +++ b/lib/protocols/Associative.ml @@ -1,5 +1,5 @@ class type implementation = object - method update : string -> Handle.t option -> Handle.t option -> (Handle.t, Concepts.Condition.condition) result + method update : string -> Handle.t option -> (Handle.t, Concepts.Condition.condition) result end type Handle.protocol += Associative of implementation @@ -10,7 +10,7 @@ let make impl = Associative (impl :> implementation) let from handle = Handle.into handle (function Associative impl -> Some impl | _ -> None) -let update i key reference value = Handle.invoke i (fun o -> - let open Utilities.Result in - let* h = o#update key reference value in - Handle.require from h) +let update i key value = Handle.invoke i (fun o -> + let open Utilities.Result in + let* h = o#update key value in + Handle.require from h) diff --git a/lib/protocols/Associative.mli b/lib/protocols/Associative.mli index 6aecca3..066cfe4 100644 --- a/lib/protocols/Associative.mli +++ b/lib/protocols/Associative.mli @@ -1,11 +1,11 @@ type t class type implementation = object - method update : string -> Handle.t option -> Handle.t option -> (Handle.t, Concepts.Condition.condition) result + method update : string -> Handle.t option -> (Handle.t, Concepts.Condition.condition) result end val make : #implementation -> Handle.protocol val from : Handle.t -> t Handle.interface option -val update : t Handle.interface -> string -> Handle.t option -> Handle.t option -> (t Handle.interface, Concepts.Condition.condition) result +val update : t Handle.interface -> string -> Handle.t option -> (t Handle.interface, Concepts.Condition.condition) result |