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/kernel/Prototype.mli | |
| parent | 2e8f23c7802e9afb43a0e9846416f93a63a7e592 (diff) | |
| download | RNT-82f8bf61e1ded0488334ca4a4b859e969cac100f.tar.gz RNT-82f8bf61e1ded0488334ca4a4b859e969cac100f.zip | |
Associative collections on top of prolly trees
Diffstat (limited to 'lib/kernel/Prototype.mli')
| -rw-r--r-- | lib/kernel/Prototype.mli | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/lib/kernel/Prototype.mli b/lib/kernel/Prototype.mli index c1e93df..2c7d067 100644 --- a/lib/kernel/Prototype.mli +++ b/lib/kernel/Prototype.mli @@ -1,10 +1,18 @@ +val mixture_of : 'a -> (('a -> Protocols.Handle.t) -> 'a -> Protocols.Handle.protocol list) -> Protocols.Handle.t val mixture : Protocols.Handle.protocol list -> Protocols.Handle.t module Directory : sig val of_properties : (string * Protocols.Handle.t) list -> Protocols.Handle.protocol module OfTree (S : Abstract.Storage.STORAGE) (K : Merkle.KEY with type t = string) (V : Merkle.VALUE) : sig - module Interface : module type of Merkle.Interface (S) (K) (V) - val make : storage:S.connection -> constructor:(V.t -> (Protocols.Handle.t, Concepts.Condition.condition) result) -> node:Interface.node -> Protocols.Handle.protocol + module Tree : module type of Merkle.Interface (S) (K) (V) + val make : storage:S.connection -> constructor:(V.t -> (Protocols.Handle.t, Concepts.Condition.condition) result) -> node:Tree.node -> Protocols.Handle.protocol + end +end + +module Associative : sig + module OfTree (S : Abstract.Storage.STORAGE) (K : Merkle.KEY with type t = string) : sig + module Tree : module type of Merkle.Make (S) (K) + val make : storage:S.connection -> constructor:(Tree.node -> (Protocols.Handle.t, Concepts.Condition.condition) result) -> node:Tree.node -> Protocols.Handle.protocol end end |