X-Git-Url: https://git.njae.me.uk/?a=blobdiff_plain;f=adventofcode1701%2Fapp%2Fadvent01.hs;fp=adventofcode1701%2Fapp%2Fadvent01.hs;h=dc63f9cccb7371cfd927dbac08bbe4cbf36ef6df;hb=931b8f4140207d95611a9904407226c034713cbd;hp=d6d37829e70ccbbcd15bfc41884470be1a28b11b;hpb=302ba8466294fff53aefb49f4ef0503ecbad88d2;p=advent-of-code-17.git

diff --git a/adventofcode1701/app/advent01.hs b/adventofcode1701/app/advent01.hs
index d6d3782..dc63f9c 100644
--- a/adventofcode1701/app/advent01.hs
+++ b/adventofcode1701/app/advent01.hs
@@ -20,7 +20,7 @@ part1 instructions = do
 
 part2 :: [Int] -> IO ()
 part2 instructions = do
-        print $ length $ takeWhile (> -1) $ scanl (+) 0 instructions
+        print $ length $ takeWhile (>= 0) $ scanl (+) 0 instructions