summaryrefslogtreecommitdiff
path: root/Command
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-11-13 16:12:02 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-11-13 16:12:02 -0400
commit7293ba2940dc7dcefa7376667fa4462b21e05ee0 (patch)
treeec0eeabaf0e3352ff352d8e47ab8eec6c480a9c7 /Command
parent498c8e8544f04841d3221ce7a47b2409858e9f38 (diff)
fsck even files not in backend
Diffstat (limited to 'Command')
-rw-r--r--Command/FsckFile.hs8
1 files changed, 2 insertions, 6 deletions
diff --git a/Command/FsckFile.hs b/Command/FsckFile.hs
index 2f9efa56e..c74e94e62 100644
--- a/Command/FsckFile.hs
+++ b/Command/FsckFile.hs
@@ -18,12 +18,8 @@ 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
+ showStart "fsck" file
+ return $ Just $ perform key backend
perform :: Key -> Backend -> SubCmdPerform
perform key backend = do