X-Git-Url: https://git.njae.me.uk/?p=advent-of-code-22.git;a=blobdiff_plain;f=advent25%2FMain.hs;fp=advent25%2FMain.hs;h=c58c47dc015da9bcd9e060d6eb1d885a2882c1db;hp=28c33f751f4afc874e952d4b29371472782536f9;hb=3ad0f674265f18dc390d3d6078348cea5f36f98c;hpb=402a27d38485107852e8128f20a443cc7a684c6d

diff --git a/advent25/Main.hs b/advent25/Main.hs
index 28c33f7..c58c47d 100644
--- a/advent25/Main.hs
+++ b/advent25/Main.hs
@@ -35,7 +35,7 @@ packSnafu :: [Int] -> String
 packSnafu digits
   | carry == 0 = shown
   | otherwise = (snafuRep carry) : shown
-  where (carry, shown) = foldl' packSnafuDigit (0, "")
+  where (carry, shown) = foldl' packSnafuDigit (0, "") digits
 
 packSnafuDigit :: (Int, String) -> Int -> (Int, String)
 packSnafuDigit (carry, acc) d