From 583c9cf8e3ec1bce0bf568b977251b5bc0045b81 Mon Sep 17 00:00:00 2001
From: Neil Smith <NeilNjae@users.noreply.github.com>
Date: Thu, 7 Dec 2023 10:56:55 +0000
Subject: [PATCH] Tidying

---
 advent07/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/advent07/Main.hs b/advent07/Main.hs
index 6d326a4..b839511 100644
--- a/advent07/Main.hs
+++ b/advent07/Main.hs
@@ -33,7 +33,7 @@ part1 hands = sum $ fmap score rankedHands
         rankedHands = zip [1..] sortedHands
         score (r, CHand _ _ bid) = r * bid
 
-part2 hands = part1 $ fmap enJoker hands
+part2 = part1 . fmap enJoker
 
 enJoker :: Hand -> Hand
 enJoker (Hand cards bid) = Hand jCards bid
-- 
2.34.1