From d036cd590f5c3c4edcd025effcf57c3d16886559 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 15 Sep 2011 15:44:32 -0400
Subject: bugfix: drop and fsck did not honor --exclude

---
 Command.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Command.hs')

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
-- 
cgit v1.2.3