Tidying

[advent-of-code-22.git] / advent25 / Main.hs

diff --git a/advent25/Main.hs b/advent25/Main.hs
index 28c33f751f4afc874e952d4b29371472782536f9..c58c47dc015da9bcd9e060d6eb1d885a2882c1db 100644 (file)
--- 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