From e1d213d6e3c9fe0cda6e2b80c4abeb17db5d3a16 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 26 Jan 2011 20:37:46 -0400 Subject: make filename available to fsck messages --- Command/Fsck.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'Command') 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 -- cgit v1.2.3