X-Git-Url: https://git.njae.me.uk/?a=blobdiff_plain;f=advent07%2FMain.hs;fp=advent07%2FMain.hs;h=b839511444c0d4eb4f8102b5b3a20596a2e6eb17;hb=583c9cf8e3ec1bce0bf568b977251b5bc0045b81;hp=6d326a4f545c08603210a8d9bc73de441fc2a7db;hpb=c7364d4e2de33c97a720e1654e296d3f4c304756;p=advent-of-code-23.git

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