From 28c55a730d9a0a19a62d85c166dc879aebd7b772 Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Wed, 23 Sep 2026 03:35:36 -0300 Subject: remove dead API --- lib/concepts/Mode.ml | 7 ------- 1 file changed, 7 deletions(-) (limited to 'lib/concepts/Mode.ml') diff --git a/lib/concepts/Mode.ml b/lib/concepts/Mode.ml index fc3ef84..b7aa814 100644 --- a/lib/concepts/Mode.ml +++ b/lib/concepts/Mode.ml @@ -7,15 +7,8 @@ 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 = - {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 -let to_list declaration = declaration let generation declaration bound = List.fold_left -- cgit v1.2.3