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

Format

Browse Source
This commit is contained in:
George Thomas 2025-12-04 20:11:37 +00:00
parent 8f67916e1a
commit 2f35bd9251
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
haskell/Main.hs
View File

@ -36,8 +36,7 @@ main =
in in
withResource (parseFile $ "../inputs/" <> t <> "/" <> pt) mempty \input -> withResource (parseFile $ "../inputs/" <> t <> "/" <> pt) mempty \input ->
testGroup pt $ testGroup pt $
( ( zip (map show [1 :: Int ..]) parts <&> \(n, pp) ->
zip (map show [1 :: Int ..]) parts <&> \(n, pp) ->
goldenVsString n ("../outputs/" <> t <> "/" <> pt <> "/" <> n) $ goldenVsString n ("../outputs/" <> t <> "/" <> pt <> "/" <> n) $
BL.fromStrict . encodeUtf8 . pp <$> input BL.fromStrict . encodeUtf8 . pp <$> input
) )