fsck even files not in backend

This commit is contained in:
Joey Hess 2010-11-13 16:12:02 -04:00
parent 498c8e8544
commit 7293ba2940

View file

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