From fbc63c221bd06bfb8c8317a242827395af607f1c Mon Sep 17 00:00:00 2001 From: George Thomas Date: Mon, 5 Jan 2026 15:31:16 +0000 Subject: [PATCH] Minor refactor --- haskell/Main.hs | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/haskell/Main.hs b/haskell/Main.hs index 1078f41..1320438 100644 --- a/haskell/Main.hs +++ b/haskell/Main.hs @@ -47,14 +47,11 @@ main = mapHListF (\(Fanout (f, Op o)) -> (o &&& id) $ f input) parts in pure (input, rs, os) ) - $ ( flip map ([0 :: Int .. foldHListF0 (const succ) 0 parts - 1]) $ - \n@(show . succ -> nt) -> - TestTree - (mkTestName nt) - ( \(_, rs, _) -> do - golden ("../outputs/" <> t <> "/" <> pt <> "/" <> nt) $ (rs !! n) <> "\n" - ) - [] + $ ( [0 :: Int .. foldHListF0 (const succ) 0 parts - 1] <&> \n@(show . succ -> nt) -> + TestTree + (mkTestName nt) + (\(_, rs, _) -> golden ("../outputs/" <> t <> "/" <> pt <> "/" <> nt) $ (rs !! n) <> "\n") + [] ) <> let ts = extraTests isRealData ("../outputs/" <> t <> "/" <> pt <> "/extra/") in if null ts