From e22a55668d9a1249f1101fd13d1912465a5349a1 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Mon, 8 Oct 2018 20:48:02 -0500
Subject: [PATCH] style edit

---
 src/core/CCList.ml | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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)