mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

optimisation

Browse source
This commit is contained in:
Joey Hess 2023-12-29 10:51:05 -04:00
parent e7a550a25b
commit 64db927d73
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
Command/Info.hs
View file

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