From 97960adb8426e5270fe16b027e82a2c61674f821 Mon Sep 17 00:00:00 2001
From: Marcos Magueta <maguetamarcos@gmail.com>
Date: Mon, 27 Apr 2026 23:24:19 -0300
Subject: Foreign call PRL (#67)

---
 lib/relation.ml | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'lib/relation.ml')

diff --git a/lib/relation.ml b/lib/relation.ml
index 0855b57..6e6a23c 100644
--- a/lib/relation.ml
+++ b/lib/relation.ml
@@ -28,6 +28,8 @@ module Lineage = struct
     | Aggregate of string * string * t
 end
 
+type producer = (string * Conventions.AbstractValue.t) list -> Generator.t
+
 type t = {
   hash : Conventions.Hash.t option;
   name : Conventions.Name.t;
@@ -36,13 +38,13 @@ type t = {
   constraints : RelationConstraint.t option;
   cardinality : Conventions.Cardinality.t;
   generator : Generator.t option;
+  producer : producer option;
   membership_criteria : (string -> Tree.t option) -> Tuple.t -> bool;
   provenance : Provenance.t;
   lineage : Lineage.t;
 }
 
-let make ~hash ~name ~schema ~tree ~constraints ~cardinality ~generator
-    ~membership_criteria ~provenance ~lineage =
+let make ?(producer = None) ~hash ~name ~schema ~tree ~constraints ~cardinality ~generator ~membership_criteria ~provenance ~lineage () =
   {
     hash;
     name;
@@ -51,6 +53,7 @@ let make ~hash ~name ~schema ~tree ~constraints ~cardinality ~generator
     constraints;
     cardinality;
     generator;
+    producer;
     membership_criteria;
     provenance;
     lineage;
-- 
cgit v1.2.3