From f53d887d23d7743bc40c3b552c27d9ae30a72acd Mon Sep 17 00:00:00 2001
From: Marcos Magueta <maguetamarcos@gmail.com>
Date: Sun, 20 Sep 2026 02:14:10 -0300
Subject: format

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

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

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
-- 
cgit v1.2.3