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

fsck even files not in backend

Browse source
This commit is contained in:
Joey Hess 2010-11-13 16:12:02 -04:00
parent 498c8e8544
commit 7293ba2940
1 changed files with 2 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
Command/FsckFile.hs
View file

@ -18,12 +18,8 @@ seek = [withFilesInGit start]
{- Checks a file's backend data for problems. -} {- Checks a file's backend data for problems. -}
start :: SubCmdStartString start :: SubCmdStartString
start file = isAnnexed file $ \(key, backend) -> do start file = isAnnexed file $ \(key, backend) -> do
inbackend <- Backend.hasKey key showStart "fsck" file
if (not inbackend) return $ Just $ perform key backend
then return Nothing
else do
showStart "fsck" file
return $ Just $ perform key backend
perform :: Key -> Backend -> SubCmdPerform perform :: Key -> Backend -> SubCmdPerform
perform key backend = do perform key backend = do