diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-01-26 20:37:46 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-01-26 20:37:46 -0400 |
| commit | e1d213d6e3c9fe0cda6e2b80c4abeb17db5d3a16 (patch) | |
| tree | 93582f5e205a144f49a937b3b7ae5d1084469a6f /Backend.hs | |
| parent | c30d38e108ade7eb4fa57552631b64dd3b9582c4 (diff) | |
make filename available to fsck messages
Diffstat (limited to 'Backend.hs')
| -rw-r--r-- | Backend.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Backend.hs b/Backend.hs index d9bf35f0d..bdceea2f5 100644 --- a/Backend.hs +++ b/Backend.hs @@ -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. -} |