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

optimise for case where there are no required contents

Browse source 
Avoid reading location log in this case.
This commit is contained in:
Joey Hess 2018-02-08 14:16:00 -04:00
parent 74c1a5c24b
commit 42ba888875
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 15 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Command/Fsck.hs
View file

@ -295,8 +295,11 @@ verifyLocationLog' key ai present u updatestatus = do
- checking against the location log. -} - checking against the location log. -}
verifyRequiredContent :: Key -> ActionItem -> Annex Bool verifyRequiredContent :: Key -> ActionItem -> Annex Bool
verifyRequiredContent key ai@(ActionItemAssociatedFile afile) = do verifyRequiredContent key ai@(ActionItemAssociatedFile afile) = do
presentlocs <- S.fromList <$> loggedLocations key
requiredlocs <- S.fromList . M.keys <$> requiredContentMap requiredlocs <- S.fromList . M.keys <$> requiredContentMap
if S.null requiredlocs
then return True
else do
presentlocs <- S.fromList <$> loggedLocations key
missinglocs <- filterM missinglocs <- filterM
(\u -> isRequiredContent (Just u) S.empty (Just key) afile False) (\u -> isRequiredContent (Just u) S.empty (Just key) afile False)
(S.toList $ S.difference requiredlocs presentlocs) (S.toList $ S.difference requiredlocs presentlocs)