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

Minor refactor

Browse Source
This commit is contained in:
George Thomas 2025-12-02 08:26:21 +00:00
parent 023276e79c
commit 6b2d6f29fd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/Main.hs
View File

@ -28,8 +28,8 @@ puzzleTest p =
<&> \(inFile, outFile) -> <&> \(inFile, outFile) ->
withResource (maybe (fail "parse failure") pure . p.parse =<< readFile ("inputs/" <> inFile <> "/" <> show p.number)) mempty \input -> withResource (maybe (fail "parse failure") pure . p.parse =<< readFile ("inputs/" <> inFile <> "/" <> show p.number)) mempty \input ->
testGroup outFile $ testGroup outFile $
[(1 :: Word, p.part1), (2, p.part2)] <&> \(n, pp) -> [("1", p.part1), ("2", p.part2)] <&> \(n, pp) ->
goldenVsString (show n) ("outputs/" <> outFile <> "/" <> show p.number <> "/" <> show n) $ goldenVsString n ("outputs/" <> outFile <> "/" <> show p.number <> "/" <> n) $
BL.fromStrict . encodeUtf8 . pp.solve <$> input BL.fromStrict . encodeUtf8 . pp.solve <$> input
data Puzzle input = Puzzle data Puzzle input = Puzzle