diff options
| author | Estevan Castilho <tevo@riajuu.net> | 2026-09-19 04:32:33 +0000 |
|---|---|---|
| committer | Estevan Castilho <tevo@riajuu.net> | 2026-09-19 04:32:33 +0000 |
| commit | 6570e7f711774f74218ad5490b5f0621ef1c8655 (patch) | |
| tree | c07ae0852dab3d34220f64f1804fe42367da5ba2 /lib/kernel/Branch.ml | |
| parent | 82f8bf61e1ded0488334ca4a4b859e969cac100f (diff) | |
| download | RNT-6570e7f711774f74218ad5490b5f0621ef1c8655.tar.gz RNT-6570e7f711774f74218ad5490b5f0621ef1c8655.zip | |
Associatives out of object properties
Diffstat (limited to 'lib/kernel/Branch.ml')
| -rw-r--r-- | lib/kernel/Branch.ml | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lib/kernel/Branch.ml b/lib/kernel/Branch.ml index 54d5aaf..b8d331f 100644 --- a/lib/kernel/Branch.ml +++ b/lib/kernel/Branch.ml @@ -69,6 +69,13 @@ module Make (S : Abstract.Storage.STORAGE) = struct method protocols : Protocols.Handle.protocol list = Protocols.[ Addressable.make self; + Prototype.Associative.(of_properties + [ "multigroup", update_only (fun node' -> + let open Utilities.Result in + let* addressable = Handle.require Addressable.from node' in + let addr = Addressable.address addressable in + ignore addr; + failwith "TODO") ]); Prototype.Directory.of_properties [ "multigroup", Prototype.mixture_of node (fun make node -> |