diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-01-20 16:36:33 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-01-20 16:36:33 -0400 |
| commit | 10c579282b4f0acc7f26d8084916f7d538a89bd8 (patch) | |
| tree | bc9e4a526b3bef0cb54b784cbe0d42a555a329db /Command/Fsck.hs | |
| parent | d115fb8d3418d494708390f8a74938d830c669b7 (diff) | |
remove 163 lines of code without changing anything except imports
Diffstat (limited to 'Command/Fsck.hs')
| -rw-r--r-- | Command/Fsck.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/Command/Fsck.hs b/Command/Fsck.hs index 3abf55aa3..08892e37f 100644 --- a/Command/Fsck.hs +++ b/Command/Fsck.hs @@ -9,12 +9,10 @@ module Command.Fsck where -import Common.Annex import Command import qualified Annex import qualified Remote import qualified Types.Backend -import qualified Types.Key import qualified Backend import Annex.Content import Annex.Content.Direct @@ -29,7 +27,6 @@ import Annex.NumCopies import Annex.UUID import Utility.DataUnits import Config -import Types.Key import Utility.HumanTime import Utility.CopyFile import Git.FilePath @@ -177,7 +174,7 @@ performRemote key file backend numcopies remote = startKey :: Incremental -> Key -> NumCopies -> CommandStart startKey inc key numcopies = - case Backend.maybeLookupBackendName (Types.Key.keyBackendName key) of + case Backend.maybeLookupBackendName (keyBackendName key) of Nothing -> stop Just backend -> runFsck inc (key2file key) key $ performKey key backend numcopies @@ -309,7 +306,7 @@ checkKeySizeRemote key remote (Just file) = checkKeySizeOr (badContentRemote remote file) key file checkKeySizeOr :: (Key -> Annex String) -> Key -> FilePath -> Annex Bool -checkKeySizeOr bad key file = case Types.Key.keySize key of +checkKeySizeOr bad key file = case keySize key of Nothing -> return True Just size -> do size' <- liftIO $ getFileSize file |