diff --git a/app/Main.hs b/app/Main.hs index bbcbd27..ef63188 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -32,11 +32,11 @@ main = puzzleTest :: FilePath -> Puzzle -> TestTree puzzleTest t Puzzle{number, parser, parts} = - withResource (parseFile $ "inputs/" <> t <> "/" <> pt) mempty \input -> - testGroup pt $ - zip (map show [1 :: Int ..]) parts <&> \(n, pp) -> - goldenVsString n ("outputs/" <> t <> "/" <> pt <> "/" <> n) $ - BL.fromStrict . encodeUtf8 . pp <$> input + withResource (parseFile $ "inputs/" <> t <> "/" <> pt) mempty \input -> + testGroup pt $ + zip (map show [1 :: Int ..]) parts <&> \(n, pp) -> + goldenVsString n ("outputs/" <> t <> "/" <> pt <> "/" <> n) $ + BL.fromStrict . encodeUtf8 . pp <$> input where pt = show number parseFile fp =