From 63a1cfb10f4c516479a41c48ca446a653266da50 Mon Sep 17 00:00:00 2001
From: Neil Smith <neil.git@njae.me.uk>
Date: Sat, 1 Dec 2018 13:42:26 +0000
Subject: [PATCH] Part 2 point-free

---
 src/advent01/advent01.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/advent01/advent01.hs b/src/advent01/advent01.hs
index d833bbc..e1935f4 100644
--- a/src/advent01/advent01.hs
+++ b/src/advent01/advent01.hs
@@ -26,7 +26,7 @@ part1 :: [Int] -> Int
 part1 = sum 
 
 part2 :: [Int] -> Int
-part2 changes = snd $ head $ dropWhile unRepeated $ scanl merge (S.empty, 0) $ cycle changes
+part2 = snd . head . dropWhile unRepeated . scanl merge (S.empty, 0) . cycle 
 
 merge :: (IntSet, Int) -> Int -> (IntSet, Int)
 merge (frequencies, frequency) change = (S.insert frequency frequencies, frequency + change)
-- 
2.34.1