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/Multigroup.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/lib/kernel/Multigroup.ml b/lib/kernel/Multigroup.ml
index 5a3390d..eaef8c3 100644
--- a/lib/kernel/Multigroup.ml
+++ b/lib/kernel/Multigroup.ml
@@ -31,12 +31,12 @@ module Make (S : Abstract.Storage.STORAGE) = struct
     let admit name h =
       let open Utilities.Result in
       let address entry = Concepts.Hash.hash_of_blob (encode entry) in
-      match EphemeralRelation.stored h with
-      | Some (evaluator, code, _) ->
+      match Program.image h with
+      | Some {evaluator; source; _} ->
           let* description = Protocols.Relation.heading h in
           Ok
             (fun tx ->
-              let* record = E.store tx ~name ~evaluator ~code description in
+              let* record = E.store tx ~name ~evaluator ~source description in
               Ok (address (Ephemeral record)) )
       | None ->
           let* description, tuples = Protocols.Relation.read h in
-- 
cgit v1.2.3