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

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

diff --git a/app/Main.hs b/app/Main.hs
index 739e0c5..8dd1ea1 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -22,10 +22,11 @@ main :: IO ()
 main =
     defaultMain
         . localOption (Always :: UseColor)
-        $ testGroup
-            "tests"
-            [ puzzleTest puzzle1
-            , puzzleTest puzzle2
+        . testGroup "tests"
+        $ map
+            puzzleTest
+            [ puzzle1
+            , puzzle2
             ]
 
 puzzleTest :: Puzzle -> TestTree