From 3d85d4d78a58ae83c8cceb78d9ba123e1c3f18f8 Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@posteo.de>
Date: Mon, 30 Jan 2023 18:35:51 +0800
Subject: [PATCH] Oh, shoot

---
 ghcup-0.0.7.yaml.sig  | Bin 682 -> 682 bytes
 ghcup-gen/Validate.hs |   2 +-
 2 files changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghcup-0.0.7.yaml.sig b/ghcup-0.0.7.yaml.sig
index 23e420a36d9434ef92aa3d6d028968eed4937b33..74c97c77d51f1ea4e28635a4735fe8794ea8dd66 100644
GIT binary patch
delta 533
zcmV+w0_y#$1*!#*Bm$k9ktTqDPlylzktQ9yO=W6^<ddHco6ztv55O)sr$q@<|C_Y$
zZH=}?IpkWTr08^*iK&e$T=}1zAa?e*L@3xkXOmfrLbsNLEKc{0i#Qh>41zL7g-yJb
z6$4?=Dm&Ma5Xb9q2=t+5r`m05UXncJ8!HL^jEOdOd?LCmBTym9<xj+a7Hxk_gz5gL
z{W<9!s_88H2JXsg=0Qf-yDxhhzbNq=k1Uk2BbH`Y8si>G8zu%Pn7QV}{-jY0FJXBs
zEK%Pw;wV>sE+77r&Vw$FYLgujUIGU{Am33r3HIKl2*|{zWI83<sK^R+$NmJCunTTs
zeCw*A6%VI?;axW|PWZ5Yu_zr~I`?=x$g#`FxvdfUdeqa{n#T*Wx^Wp%MYuWeKY!8{
zANH5LmcWh)!%(EX>!DC<*L$L)<7wizM;?Tc8NQnYKqyWA4aOFqEEuav***$3I))8V
z#jfv-Lk=x@yyLuzRX6m#yQxV*8O_`0Y$*)(1ht_v&rV!#GF$(D8U*a;1%Wn&&n=5<
zcq)zJi)MXhegP>+xv-$>8P~K>9D4oqsKkiQE}}lPJjdR&lF%3|Ii56oqxBhR4?=yL
zGNOgvFq|U(7UzDoVwk)L?%bw1>kAq$M6iM&Uj}pmcT?8Kv5A|ahFUX+#@TEUZM<;p
X=Bu-6Om(2(YH$z;1vv)}Xgb4H>_hz=

delta 533
zcmV+w0_y#$1*!#*Bm$TLktTqDd_)iY4}@2$LDSPWPZru?AOpzFheb*!^g+bMw+N}v
zP*e-=YNe<*SAqOe$BID-Ad|bzQ6)Y=?7RKw+Q(LgY4{^*$GdeR$GyuxWW6>Q;Gpuw
zU;geyU5uVk0aN^>s@HSizw~u<V%lBZ9!sk5U(C$J8i&#|d$QuerXLi4C74B+FtKL8
zZD~0HDMphfpI*A|kft(bP6S?vMqw$cL!IX&1ql{q>L91TK8LJQy2Ij|mYr*x9vb;!
zYJ*ocX0?KO9C@PZPv5(bD10fmBKxtD!#S~49_ne&*h3Jh!f%@i4`P!aBcWRamg6PV
zEmsF8`mt6FNm>PT|22GnqHN}hPcPZ`^v4R&HZI*?K*abD;8Jpo(?phYoOm6jq^>o5
z$RxF!0{le|vJ;ZQ=UCh3w~Yi*HhQ?Dd@Z(bJ*OvY7<{on4g>W{Iwtf;7zF?ClVpYT
z1wxHL_(5%otIb?+K!z|y)5`rhD090Kg2Oe6@S^9-+ixC~BjyHwbM@mg=_}UiGmOzG
zjSO9I&Mus_mUhD)&7Gp5YI|o~weEtX=lasg_EDUjPZ3f-mKF7wEneJfCf1!KMjoYz
z<CD-<iV8W3_j%*_M(d6?ag8iAQYP(O9QX^~HWaWs*a)Mqm;iy4wr*m{8KVR2O%u~j
Xhjiurg4FxV15Qf_6`?Xb9<*K0IwA#8

diff --git a/ghcup-gen/Validate.hs b/ghcup-gen/Validate.hs
index fa209e9..9db8c27 100644
--- a/ghcup-gen/Validate.hs
+++ b/ghcup-gen/Validate.hs
@@ -212,7 +212,7 @@ validateTarballs (TarballFilter etool versionRegex) = 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)
-                                                  % (viTestDL % _Just `summing` viSourceDL % _Just)
+                                                  % (viTestDL % _Just `summing` viSourceDL % _Just `summing` viArch % each % each % each)
                                )
                                etool
   let gdlis = nubOrd $ gt ^.. each