diff options
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 |