From 7a1873e0b0680a71b75ac0a8243a2fcc456bbf62 Mon Sep 17 00:00:00 2001
From: drew <drew@drewolson.org>
Date: Fri, 8 Dec 2023 08:55:34 +0800
Subject: [PATCH] Small clean up

---
 lib/year2023/day07.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/year2023/day07.ml b/lib/year2023/day07.ml
index a241719..2a74450 100644
--- a/lib/year2023/day07.ml
+++ b/lib/year2023/day07.ml
@@ -69,7 +69,7 @@ let hand_type hand =
   let counts =
     hand
     |> List.sort ~compare:compare_card
-    |> List.group ~break:(fun a b -> not (compare_card a b = 0))
+    |> List.group ~break:(fun a b -> not (equal_card a b))
     |> List.map ~f:List.length
     |> List.sort ~compare:(fun a b -> -compare a b)
   in
@@ -98,7 +98,7 @@ let hand_type' hand =
   hand
   |> expand
   |> List.map ~f:hand_type
-  |> List.sort ~compare:[%compare: type']
+  |> List.sort ~compare:compare_type'
   |> List.hd_exn
 ;;