From 0161187d843c84011749139a85c0eb31685bbc4c Mon Sep 17 00:00:00 2001
From: Marcos Magueta <maguetamarcos@gmail.com>
Date: Sat, 10 Oct 2026 00:32:29 -0300
Subject: rework store ephemeral relation under program and fail at path look

---
 lib/kernel/Branch.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'lib/kernel/Branch.ml')

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 ->
-- 
cgit v1.2.3