diff options
| author |  Joey Hess <joey@kitenet.net> | 2010-11-13 16:12:02 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2010-11-13 16:12:02 -0400 |
| commit | 7293ba2940dc7dcefa7376667fa4462b21e05ee0 (patch) | |
| tree | ec0eeabaf0e3352ff352d8e47ab8eec6c480a9c7 /Command | |
| parent | 498c8e8544f04841d3221ce7a47b2409858e9f38 (diff) | |
fsck even files not in backend
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/FsckFile.hs | 8 |
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 |