diff options
| author | Estevan Castilho <tevo@riajuu.net> | 2026-09-24 04:25:50 +0000 |
|---|---|---|
| committer | Estevan Castilho <tevo@riajuu.net> | 2026-09-24 04:26:17 +0000 |
| commit | 721b1fda713a08bbc4f9a8e50820ce1491e32ff1 (patch) | |
| tree | 86e405eff57158dda3749ae6efd8edb5c74693c9 /lib/kernel/Prototype.ml | |
| parent | 5a1088413468f171886d39339a8de96697af64c5 (diff) | |
| download | RNT-721b1fda713a08bbc4f9a8e50820ce1491e32ff1.tar.gz RNT-721b1fda713a08bbc4f9a8e50820ce1491e32ff1.zip | |
Actually register the multigroup
Diffstat (limited to 'lib/kernel/Prototype.ml')
| -rw-r--r-- | lib/kernel/Prototype.ml | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/lib/kernel/Prototype.ml b/lib/kernel/Prototype.ml index 1d0751a..b159e00 100644 --- a/lib/kernel/Prototype.ml +++ b/lib/kernel/Prototype.ml @@ -21,6 +21,18 @@ module Error = struct empty end +module Addressable = struct + module OfTree (S : Abstract.Storage.STORAGE) (K : Merkle.KEY) = struct + module Tree = Merkle.Make (S) (K) + + let make ~node = + Protocols.Addressable.make @@ + object + method address = Tree.hash_of node + end + end +end + module Associative = struct let of_properties props = Protocols.Associative.make @@ |