diff --git a/haskell/Main.hs b/haskell/Main.hs index 91de52b..18ab874 100644 --- a/haskell/Main.hs +++ b/haskell/Main.hs @@ -36,8 +36,7 @@ main = in withResource (parseFile $ "../inputs/" <> t <> "/" <> pt) mempty \input -> testGroup pt $ - ( - zip (map show [1 :: Int ..]) parts <&> \(n, pp) -> + ( zip (map show [1 :: Int ..]) parts <&> \(n, pp) -> goldenVsString n ("../outputs/" <> t <> "/" <> pt <> "/" <> n) $ BL.fromStrict . encodeUtf8 . pp <$> input )