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

bugfix: drop and fsck did not honor --exclude

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

3
Command.hs
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