changed key to include backend name

This commit is contained in:
Joey Hess 2010-10-14 19:36:11 -04:00
parent c4959fee47
commit b8ba60428a
5 changed files with 40 additions and 29 deletions

View file

@ -50,7 +50,7 @@ gitAttributes repo = do
attributes]
{- Checks if a given key is currently present in the annexLocation -}
inAnnex :: Backend -> Key -> Annex Bool
inAnnex backend key = do
inAnnex :: Key -> Annex Bool
inAnnex key = do
g <- Annex.gitRepo
liftIO $ doesFileExist $ annexLocation g backend key
liftIO $ doesFileExist $ annexLocation g key