patrickaldis/garnet
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Tidy up main

Browse Source
This commit is contained in:
George Thomas 2026-01-06 18:48:37 +00:00
parent db41a65453
commit ecb7391468
1 changed files with 20 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
haskell/Main.hs
View File

@ -18,10 +18,15 @@ import Puzzles.Day9 qualified as Day9
import Text.Pretty.Simple (pPrintForceColor)
main :: IO ()
main =
(pPrintForceColor =<<) $ runTests () $ test "tests" pure $ flip map enumerate \isRealData@(bool "examples" "real" -> t) ->
test (mkTestName t) pure $ flip
map
main = do
pPrintForceColor $ getTestTree tests
pPrintForceColor =<< runTests () tests
tests :: TestTree IO ()
tests =
test "tests" pure $
enumerate <&> \isRealData@(bool "examples" "real" -> t) ->
test (mkTestName t) pure $
[ Day1.puzzle
, Day2.puzzle
, Day3.puzzle
@ -32,9 +37,7 @@ main =
, Day8.puzzle
, Day9.puzzle
, Day10.puzzle
]
\Puzzle{number = show -> pt, parser, parts, extraTests} ->
testLazy
] <&> \Puzzle{number = show -> pt, parser, parts, extraTests} -> testLazy
(mkTestName pt)
( \() -> do
let fp = "../inputs/" <> t <> "/" <> pt