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 /Command | |
parent | c30d38e108ade7eb4fa57552631b64dd3b9582c4 (diff) |
make filename available to fsck messages
Diffstat (limited to 'Command')
-rw-r--r-- | Command/Fsck.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Command/Fsck.hs b/Command/Fsck.hs index fc9bd7f52..b6f330d4c 100644 --- a/Command/Fsck.hs +++ b/Command/Fsck.hs @@ -24,13 +24,13 @@ seek = [withAttrFilesInGit "annex.numcopies" start] start :: CommandStartAttrFile start (file, attr) = isAnnexed file $ \(key, backend) -> do showStart "fsck" file - return $ Just $ perform key backend numcopies + return $ Just $ perform key file backend numcopies where numcopies = readMaybe attr :: Maybe Int -perform :: Key -> Backend Annex -> Maybe Int -> CommandPerform -perform key backend numcopies = do - success <- Backend.fsckKey backend key numcopies +perform :: Key -> FilePath -> Backend Annex -> Maybe Int -> CommandPerform +perform key file backend numcopies = do + success <- Backend.fsckKey backend key (Just file) numcopies if success then return $ Just $ return True else return Nothing |