summaryrefslogtreecommitdiff
path: root/Core.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-12-23 21:53:32 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-12-23 21:58:58 -0400
commit346c7a025780e011cdfdbb7eb27281f808a8de92 (patch)
tree3e8c9caef53105878f9378fbcd08e821ebe8540e /Core.hs
parent61b7f3dea3b54ead64cd5e957da28c83e7c25c85 (diff)
Avoid multiple calls to git ls-files when passed eg, "*".
Diffstat (limited to 'Core.hs')
-rw-r--r--Core.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Core.hs b/Core.hs
index 9da4f3f2e..d91595a04 100644
--- a/Core.hs
+++ b/Core.hs
@@ -204,6 +204,6 @@ getKeysPresent' dir = do
getKeysReferenced :: Annex [Key]
getKeysReferenced = do
g <- Annex.gitRepo
- files <- liftIO $ Git.inRepo g $ Git.workTree g
+ files <- liftIO $ Git.inRepo g [Git.workTree g]
keypairs <- mapM Backend.lookupFile files
return $ map fst $ catMaybes keypairs