X-Git-Url: https://git.njae.me.uk/?a=blobdiff_plain;f=advent17%2FMain.hs;h=2d1cf6b4f07a72f2bcfa6163a2052d13df7581c6;hb=1ab3e062eb1b3b28a8aead9834afc962ca142451;hp=b6a4dab247e1618d07ba1ea0db3a3ce6ab21c2d2;hpb=6de828867120c76997d0611d4f8290b2b954c307;p=advent-of-code-21.git

diff --git a/advent17/Main.hs b/advent17/Main.hs
index b6a4dab..2d1cf6b 100644
--- a/advent17/Main.hs
+++ b/advent17/Main.hs
@@ -44,7 +44,7 @@ findYMax (V2 _ y, _) = y' * (y' - 1) `div` 2
 step :: Probe -> Probe
 step probe = probe & pos .~ (probe ^. pos ^+^ probe ^. vel) & vel .~ vel'
   where vel' = V2 (max 0 (vx - 1)) (vy - 1)
-        V2 vx vy = _vel
+        V2 vx vy = probe ^. vel
         -- v = probe ^. vel
         -- vel' = v & _x .~ (max 0 ((v ^. _x) - 1)) & _y .~ ((v ^. _y) - 1)