More point-free

diff --git a/advent01.hs b/advent01.hs
index 27a6f21db1c5351d75e3b1ce72ba5656e206cc56..6b3eefd047e5dd21fb79ffb1cf79fb70bd998b48 100644 (file)
--- a/advent01.hs
+++ b/advent01.hs
@@ -52,7 +52,8 @@ expandSteps =
 
 -- Execute a series of steps, keeping track of the positions after each step
 takeSteps :: Position -> [Step] -> [Position]
-takeSteps pos steps = scanl move pos steps
+-- takeSteps pos steps = scanl move pos steps
+takeSteps = scanl move
 
 -- Make one move, by updating direction then position
 move :: Position -> Step -> Position