This commit is contained in:
Joey Hess 2011-11-11 01:52:58 -04:00
parent b327227ba5
commit 637b5feb45
26 changed files with 71 additions and 102 deletions

View file

@ -50,7 +50,7 @@ withBarePresentKeys a params = isBareRepo >>= go
where
go False = return []
go True = do
unless (null params) $ do
unless (null params) $
error "fsck should be run without parameters in a bare repository"
prepStart a loggedKeys
@ -137,7 +137,7 @@ checkKeySize key = do
checkBackend :: Backend Annex -> Key -> Annex Bool
checkBackend backend key = (Types.Backend.fsckKey backend) key
checkBackend = Types.Backend.fsckKey
checkKeyNumCopies :: Key -> FilePath -> Maybe Int -> Annex Bool
checkKeyNumCopies key file numcopies = do