From 882511dc8c0abded18ba6abdca64938db2652771 Mon Sep 17 00:00:00 2001
From: Marcos Magueta <maguetamarcos@gmail.com>
Date: Wed, 23 Sep 2026 03:32:15 -0300
Subject: lift retaining, membership and mode checks out of ephemeral relation

---
 lib/concepts/Mode.ml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lib/concepts/Mode.ml')

diff --git a/lib/concepts/Mode.ml b/lib/concepts/Mode.ml
index 6ac1704..fc3ef84 100644
--- a/lib/concepts/Mode.ml
+++ b/lib/concepts/Mode.ml
@@ -5,6 +5,7 @@ type mode = {bound: attributes; affords: affordance}
 type t = mode list
 
 let attributes_of_list = BatSet.String.of_list
+let attributes_of_map map = BatMap.String.keys map |> BatSet.String.of_enum
 let decides_when bound = {bound= attributes_of_list bound; affords= Decides}
 
 let generates_when bound cardinality =
-- 
cgit v1.2.3