From 810870e3a59a5f4903cc5199f8f2bb07364ff3fa Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@posteo.de>
Date: Mon, 7 Jun 2021 20:04:55 +0200
Subject: [PATCH] Fix Validate

---
 app/ghcup-gen/Validate.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/app/ghcup-gen/Validate.hs b/app/ghcup-gen/Validate.hs
index 6bd0535..3c468e1 100644
--- a/app/ghcup-gen/Validate.hs
+++ b/app/ghcup-gen/Validate.hs
@@ -208,7 +208,7 @@ validateTarballs (TarballFilter etool versionRegex) dls gt = do
      -- download/verify all tarballs
     let dlis = either (const []) (\tool -> nubOrd $ dls ^.. each %& indices (maybe (const True) (==) tool) %> each %& indices (matchTest versionRegex . T.unpack . prettyVer) % (viSourceDL % _Just `summing` viArch % each % each % each)) etool
     let gdlis = nubOrd $ gt ^.. each
-    let allDls = dlis ++ gdlis
+    let allDls = either (const gdlis) (const dlis) etool
     when (null allDls) $ $(logError) [i|no tarballs selected by filter|] *> addError
     forM_ allDls downloadAll