Refactor to use field puns

2025-12-02 11:20:48 +00:00 · 2025-12-02 11:20:48 +00:00 · b19c02811e
commit b19c02811e
parent c25b6062c6
2 changed files with 2 additions and 1 deletions
--- a/aoc.cabal
+++ b/aoc.cabal
@ -13,6 +13,7 @@ executable aoc
        BlockArguments
        DuplicateRecordFields
        MultiWayIf
+        NamedFieldPuns
        NoFieldSelectors
        OverloadedRecordDot
        OverloadedStrings
--- a/app/Main.hs
+++ b/app/Main.hs
@ -29,7 +29,7 @@ main =
            ]

 puzzleTest :: Puzzle a -> TestTree
-puzzleTest Puzzle{..} =
+puzzleTest Puzzle{number, parser, parts} =
    testGroup pt $
        ["examples", "real"] <&> \t ->
            withResource (parseFile $ "inputs/" <> t <> "/" <> pt) mempty \input ->