diff options
Diffstat (limited to 'lib/concepts/Mode.ml')
| -rw-r--r-- | lib/concepts/Mode.ml | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lib/concepts/Mode.ml b/lib/concepts/Mode.ml index 4d7501c..23abacf 100644 --- a/lib/concepts/Mode.ml +++ b/lib/concepts/Mode.ml @@ -5,14 +5,12 @@ type mode = {bound: attributes; affords: affordance} type t = mode list let attributes_of_list = BatSet.String.of_list - let decides_when bound = {bound= attributes_of_list bound; affords= Decides} let generates_when bound cardinality = {bound= attributes_of_list bound; affords= Generates cardinality} let enumerable cardinality = {bound= BatSet.String.empty; affords= Generates cardinality} - let empty = [] let declare mode declaration = mode :: declaration let of_list modes = modes @@ -33,7 +31,5 @@ let generation declaration bound = let decision declaration bound = List.exists (fun {bound= declared; affords} -> - match affords with - | Decides -> BatSet.String.equal declared bound - | Generates _ -> false ) + match affords with Decides -> BatSet.String.equal declared bound | Generates _ -> false ) declaration |