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

convert fsckKey to a Maybe

Browse source 
This way it's clear when a backend does not implement its own fsck checks.
This commit is contained in:
Joey Hess 2012-01-19 13:51:30 -04:00
parent 50c063df06
commit d36525e974
5 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Command/Fsck.hs
View file

@ -137,7 +137,9 @@ checkKeySize key = do
checkBackend :: Backend -> Key -> Annex Bool
checkBackend = Types.Backend.fsckKey
checkBackend backend key = case Types.Backend.fsckKey backend of
Nothing -> return True
Just a -> a key
checkKeyNumCopies :: Key -> FilePath -> Maybe Int -> Annex Bool
checkKeyNumCopies key file numcopies = do