From 14cc0c94fff487d989af28fca373214b34935e08 Mon Sep 17 00:00:00 2001
From: George Thomas <georgefsthomas@gmail.com>
Date: Tue, 2 Dec 2025 08:51:26 +0000
Subject: [PATCH] Format

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

diff --git a/app/Main.hs b/app/Main.hs
index 54a99a7..e61dc13 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -23,11 +23,11 @@ puzzleTest :: Puzzle a -> TestTree
 puzzleTest p =
     testGroup (show p.number) $
         ["examples", "real"] <&> \t ->
-                withResource (maybe (fail "parse failure") pure . p.parse =<< readFile ("inputs/" <> t <> "/" <> show p.number)) mempty \input ->
-                    testGroup t $
-                        [("1", p.part1), ("2", p.part2)] <&> \(n, pp) ->
-                            goldenVsString n ("outputs/" <> t <> "/" <> show p.number <> "/" <> n) $
-                                BL.fromStrict . encodeUtf8 . pp.solve <$> input
+            withResource (maybe (fail "parse failure") pure . p.parse =<< readFile ("inputs/" <> t <> "/" <> show p.number)) mempty \input ->
+                testGroup t $
+                    [("1", p.part1), ("2", p.part2)] <&> \(n, pp) ->
+                        goldenVsString n ("outputs/" <> t <> "/" <> show p.number <> "/" <> n) $
+                            BL.fromStrict . encodeUtf8 . pp.solve <$> input
 
 data Puzzle input = Puzzle
     { number :: Word