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