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

rename fsckKey to verifyKeyContent

Browse source 
No behavior changes.
This commit is contained in:
Joey Hess 2015-10-01 13:28:49 -04:00
parent 49841bbd64
commit cad3349001
8 changed files with 20 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Command/Fsck.hs
View file

@ -349,12 +349,15 @@ checkBackendOr :: (Key -> Annex String) -> Backend -> Key -> FilePath -> Annex B
checkBackendOr bad backend key file =
checkBackendOr' bad backend key file (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 (particularly in direct mode).
checkBackendOr' :: (Key -> Annex String) -> Backend -> Key -> FilePath -> Annex Bool -> Annex Bool
checkBackendOr' bad backend key file postcheck =
case Types.Backend.fsckKey backend of
case Types.Backend.verifyKeyContent backend of
Nothing -> return True
Just a -> do
ok <- a key file
Just verifier -> do
ok <- verifier key file
ifM postcheck
( do
unless ok $ do