diff options
Diffstat (limited to 'lib/concepts/Mode.ml')
| -rw-r--r-- | lib/concepts/Mode.ml | 1 |
1 files changed, 1 insertions, 0 deletions
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 = |