diff options
Diffstat (limited to 'Command/Fsck.hs')
-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 |