diff --git a/src/core/CCList.ml b/src/core/CCList.ml
index b41ed2c3..af60128c 100644
--- a/src/core/CCList.ml
+++ b/src/core/CCList.ml
@@ -383,11 +383,11 @@ let count f l =
 *)
 
 let count_true_false p l =
-  fold_left (fun (ok, ko) x ->
-      if p x then (ok + 1, ko)
-      else (ok, ko + 1)
-    ) (0, 0) l
-
+  fold_left
+    (fun (ok, ko) x ->
+      if p x then ok + 1, ko
+      else ok, ko + 1)
+    (0, 0) l
 (*$T
   count_true_false (fun x -> x mod 2 = 0) [] = (0, 0)
   count_true_false (fun x -> x mod 2 = 0) [0; 0; 2; 4] = (4, 0)