From 6b2d6f29fdc35c8747b553c00c811f2b2f9e8986 Mon Sep 17 00:00:00 2001
From: George Thomas <georgefsthomas@gmail.com>
Date: Tue, 2 Dec 2025 08:26:21 +0000
Subject: [PATCH] Minor refactor

---
 app/Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/app/Main.hs b/app/Main.hs
index 1f62990..52b8923 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -28,8 +28,8 @@ puzzleTest p =
             <&> \(inFile, outFile) ->
                 withResource (maybe (fail "parse failure") pure . p.parse =<< readFile ("inputs/" <> inFile <> "/" <> show p.number)) mempty \input ->
                     testGroup outFile $
-                        [(1 :: Word, p.part1), (2, p.part2)] <&> \(n, pp) ->
-                            goldenVsString (show n) ("outputs/" <> outFile <> "/" <> show p.number <> "/" <> show n) $
+                        [("1", p.part1), ("2", p.part2)] <&> \(n, pp) ->
+                            goldenVsString n ("outputs/" <> outFile <> "/" <> show p.number <> "/" <> n) $
                                 BL.fromStrict . encodeUtf8 . pp.solve <$> input
 
 data Puzzle input = Puzzle