mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

remove unused parameter

Browse source
This commit is contained in:
Joey Hess 2021-07-29 13:12:11 -04:00
parent 3af0e0b4de
commit 72a13d2a5f
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 9 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
Command/Fsck.hs
View file

@ -460,29 +460,18 @@ checkBackendRemote backend key remote ai localcopy =
checkBackendOr :: (Key -> Annex String) -> Backend -> Key -> RawFilePath -> ActionItem -> Annex Bool
checkBackendOr bad backend key file ai =
checkBackendOr' bad backend key file ai (return True)
-- The postcheck action is run after the content is verified,
-- in order to detect situations where the file is changed while being
-- verified.
checkBackendOr' :: (Key -> Annex String) -> Backend -> Key -> RawFilePath -> ActionItem -> Annex Bool -> Annex Bool
checkBackendOr' bad backend key file ai postcheck =
case Types.Backend.verifyKeyContent backend of
Nothing -> return True
Just verifier -> do
ok <- verifier key file
ifM postcheck
( do
unless ok $ do
msg <- bad key
warning $ concat
[ decodeBS' (actionItemDesc ai)
, ": Bad file content; "
, msg
]
return ok
, return True
)
unless ok $ do
msg <- bad key
warning $ concat
[ decodeBS' (actionItemDesc ai)
, ": Bad file content; "
, msg
]
return ok
Nothing -> return True
checkKeyNumCopies :: Key -> AssociatedFile -> NumCopies -> Annex Bool
checkKeyNumCopies key afile numcopies = do