diff options
Diffstat (limited to 'lib/concepts/Mode.ml')
| -rw-r--r-- | lib/concepts/Mode.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/concepts/Mode.ml b/lib/concepts/Mode.ml index 82c207f..b3031fc 100644 --- a/lib/concepts/Mode.ml +++ b/lib/concepts/Mode.ml @@ -16,3 +16,6 @@ let exhaustible modes bound = Option.fold ~none:false ~some:Cardinality.exhaustible (generation modes bound) let project attributes = List.filter (fun {bound; _} -> BatSet.String.subset bound attributes) + +let given attributes = + List.map (fun {bound; yields} -> {bound= BatSet.String.diff bound attributes; yields}) |