mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

remove 163 lines of code without changing anything except imports

Browse source
This commit is contained in:
Joey Hess 2016-01-20 16:36:33 -04:00
parent 8dd5d180f1
commit 737e45156e
Failed to extract signature
259 changed files with 192 additions and 355 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Annex/Content.hs
View file

@ -52,7 +52,7 @@ module Annex.Content (
import System.IO.Unsafe (unsafeInterleaveIO)
import qualified Data.Set as S
import Common.Annex
import Annex.Common
import Logs.Location
import Logs.Transfer
import qualified Git
@ -62,7 +62,6 @@ import qualified Annex.Branch
import Utility.DiskFree
import Utility.FileMode
import qualified Annex.Url as Url
import Types.Key
import Utility.DataUnits
import Utility.CopyFile
import Utility.Metered
@ -336,12 +335,12 @@ verifyKeyContent v Types.Remote.UnVerified k f = ifM (shouldVerify v)
, return True
)
where
verifysize = case Types.Key.keySize k of
verifysize = case keySize k of
Nothing -> return True
Just size -> do
size' <- liftIO $ catchDefaultIO 0 $ getFileSize f
return (size' == size)
verifycontent = case Types.Backend.verifyKeyContent =<< Backend.maybeLookupBackendName (Types.Key.keyBackendName k) of
verifycontent = case Types.Backend.verifyKeyContent =<< Backend.maybeLookupBackendName (keyBackendName k) of
Nothing -> return True
Just verifier -> verifier k f