bugfix: drop and fsck did not honor --exclude

This commit is contained in:
Joey Hess 2011-09-15 15:44:32 -04:00
parent aedf84f7d6
commit d036cd590f
2 changed files with 3 additions and 1 deletions

View file

@ -133,7 +133,8 @@ withAttrFilesInGit :: String -> CommandSeekAttrFiles
withAttrFilesInGit attr a params = do
repo <- Annex.gitRepo
files <- liftIO $ runPreserveOrder (LsFiles.inRepo repo) params
liftM (map a) $ liftIO $ Git.checkAttr repo attr files
files' <- filterFiles files
liftM (map a) $ liftIO $ Git.checkAttr repo attr files'
withNumCopies :: CommandSeekAttrFiles
withNumCopies = withAttrFilesInGit "annex.numcopies"
withBackendFilesInGit :: CommandSeekBackendFiles