diff options
Diffstat (limited to 'lib/kernel/Branch.ml')
| -rw-r--r-- | lib/kernel/Branch.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/kernel/Branch.ml b/lib/kernel/Branch.ml index 70e0711..ac8978b 100644 --- a/lib/kernel/Branch.ml +++ b/lib/kernel/Branch.ml @@ -108,7 +108,9 @@ module Make (S : Abstract.Storage.STORAGE) = struct method protocols : Protocols.Handle.protocol list = let bind = - Option.map (fun root -> Source.bind root ~within:(Protocols.Handle.make {<>})) root + Option.map + (fun root -> {EphemeralRelation.root; within= Protocols.Handle.make {<>}}) + root in let multigroups = Prototype.mixture_of node (fun make node -> |