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=f6a284f2e2cab80058544b61795de9a6ab0cad85;hp=39ba5c16dff3170a329caa0c1365c2e98d2c6923;hb=2b91cfef52c969a7d534ca79b8d01e89e19c7e6f;hpb=3047c5925ea808b3b6dadfa23bcec7651efc5ec9

diff --git a/advent25/Main.hs b/advent25/Main.hs
index 39ba5c1..f6a284f 100644
--- a/advent25/Main.hs
+++ b/advent25/Main.hs
@@ -25,7 +25,7 @@ snafuValue '=' = -2
 snafuValue _ = error "Illegal digit in read"
 
 showSnafu :: Int -> String
-showSnafu n = reverse $ packSnafu 0 $ toBase5R n
+showSnafu = reverse . (packSnafu 0) . toBase5R
 
 toBase5R :: Int -> [Int]
 toBase5R 0 = []