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

Refactor to use field puns

Browse Source
This commit is contained in:
George Thomas 2025-12-02 11:20:48 +00:00
parent c25b6062c6
commit b19c02811e
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
aoc.cabal
View File

@ -13,6 +13,7 @@ executable aoc
BlockArguments BlockArguments
DuplicateRecordFields DuplicateRecordFields
MultiWayIf MultiWayIf
NamedFieldPuns
NoFieldSelectors NoFieldSelectors
OverloadedRecordDot OverloadedRecordDot
OverloadedStrings OverloadedStrings

2
app/Main.hs
View File

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