From a47e738ec245145a75c6a03bbd1ec6d2f7c10417 Mon Sep 17 00:00:00 2001 From: George Thomas Date: Mon, 5 Jan 2026 15:24:35 +0000 Subject: [PATCH] Avoid printing empty extra test trees --- haskell/Main.hs | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/haskell/Main.hs b/haskell/Main.hs index 136f0c2..1078f41 100644 --- a/haskell/Main.hs +++ b/haskell/Main.hs @@ -56,8 +56,7 @@ main = ) [] ) - <> [ TestTree - "extra" - (\(input, _, os) -> pure (input, os)) - $ extraTests isRealData ("../outputs/" <> t <> "/" <> pt <> "/extra/") - ] + <> let ts = extraTests isRealData ("../outputs/" <> t <> "/" <> pt <> "/extra/") + in if null ts + then [] + else [TestTree "extra" (\(input, _, os) -> pure (input, os)) ts]