diff options
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 -> |