make filename available to fsck messages

This commit is contained in:
Joey Hess 2011-01-26 20:37:46 -04:00
parent c30d38e108
commit e1d213d6e3
5 changed files with 20 additions and 17 deletions

View file

@ -118,8 +118,8 @@ hasKey key = do
(B.hasKey backend) key
{- Checks a key's backend for problems. -}
fsckKey :: Backend Annex -> Key -> Maybe Int -> Annex Bool
fsckKey backend key numcopies = (B.fsckKey backend) key numcopies
fsckKey :: Backend Annex -> Key -> Maybe FilePath -> Maybe Int -> Annex Bool
fsckKey backend key file numcopies = (B.fsckKey backend) key file numcopies
{- Looks up the key and backend corresponding to an annexed file,
- by examining what the file symlinks to. -}