diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-09-15 15:44:32 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-09-15 15:44:32 -0400 |
| commit | d036cd590f5c3c4edcd025effcf57c3d16886559 (patch) | |
| tree | 4fada9155bcded2d07fce89b64284fb7a5317c1b /Command.hs | |
| parent | aedf84f7d638eb222811c13da1c642268ca06600 (diff) | |
bugfix: drop and fsck did not honor --exclude
Diffstat (limited to 'Command.hs')
| -rw-r--r-- | Command.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Command.hs b/Command.hs index c1069f0d9..bcc05c03c 100644 --- a/Command.hs +++ b/Command.hs @@ -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 |