From e76cc6f862656a3ada9fa3d4418bd060df937885 Mon Sep 17 00:00:00 2001
From: Marcos Magueta <maguetamarcos@gmail.com>
Date: Sat, 31 Oct 2026 02:27:40 -0300
Subject: format and where claude on fol

---
 lib/Utilities.ml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'lib/Utilities.ml')

diff --git a/lib/Utilities.ml b/lib/Utilities.ml
index 0472038..939556e 100644
--- a/lib/Utilities.ml
+++ b/lib/Utilities.ml
@@ -90,11 +90,10 @@ module FingerTree = struct
   let filter_map f =
     BatFingerTree.fold_left
       (fun acc elem ->
-        match f elem with None -> acc | Some result -> BatFingerTree.snoc acc result)
+        match f elem with None -> acc | Some result -> BatFingerTree.snoc acc result )
       BatFingerTree.empty
 
   let concat xss = BatFingerTree.fold_left BatFingerTree.append BatFingerTree.empty xss
-
   let concat_mapm f xs = BatFingerTree.map f xs |> sequence |> Stdlib.Result.map concat
 end
 
-- 
cgit v1.2.3