From: Joey Hess <joeyh@joeyh.name>
Date: Fri, 29 Dec 2023 14:51:05 +0000 (-0400)
Subject: optimisation
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~29^2~72
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=64db927d734bf69f79b869cd3928ab12fb291ad8;p=git-annex.git

optimisation
---

diff --git a/Command/Info.hs b/Command/Info.hs
index 3027572945..864ad02579 100644
--- a/Command/Info.hs
+++ b/Command/Info.hs
@@ -627,10 +627,11 @@ cachedAllRepoData = do
 		Nothing -> do
 			matcher <- lift getKeyOnlyMatcher
 			!v <- lift $ overLocationLogs emptyKeyInfo $ \k locs d -> do
-				numcopies <- genericLength . snd
-					<$> trustPartition DeadTrusted locs
 				ifM (matchOnKey matcher k)
-					( return (addKeyCopies numcopies k d)
+					( do
+						numcopies <- genericLength . snd
+							<$> trustPartition DeadTrusted locs
+						return (addKeyCopies numcopies k d)
 					, return d
 					)
 			put s { allRepoData = Just v }