Minor refactor

This commit is contained in:
George Thomas 2025-12-02 11:22:17 +00:00
parent ce3e586e0c
commit 6f3855ce4b

View File

@ -22,10 +22,11 @@ main :: IO ()
main = main =
defaultMain defaultMain
. localOption (Always :: UseColor) . localOption (Always :: UseColor)
$ testGroup . testGroup "tests"
"tests" $ map
[ puzzleTest puzzle1 puzzleTest
, puzzleTest puzzle2 [ puzzle1
, puzzle2
] ]
puzzleTest :: Puzzle -> TestTree puzzleTest :: Puzzle -> TestTree