optimisation

Command/Info.hs

@@ -627,10 +627,11 @@ cachedAllRepoData = do
 		Nothing -> do
 			matcher <- lift getKeyOnlyMatcher
 			!v <- lift $ overLocationLogs emptyKeyInfo $ \k locs d -> do
+				ifM (matchOnKey matcher k)
+					( do
 						numcopies <- genericLength . snd
 							<$> trustPartition DeadTrusted locs
-				ifM (matchOnKey matcher k)
-					( return (addKeyCopies numcopies k d)
+						return (addKeyCopies numcopies k d)
 					, return d
 					)
 			put s { allRepoData = Just v }