diff --git a/Backend/Hash.hs b/Backend/Hash.hs index fc0a8b8591..16b3b56c72 100644 --- a/Backend/Hash.hs +++ b/Backend/Hash.hs @@ -22,7 +22,6 @@ import Types.Backend import Types.KeySource import Utility.Hash import Utility.Metered -import qualified Utility.RawFilePath as R import qualified Data.ByteString as S import qualified Data.ByteString.Short as S (toShort, fromShort) @@ -125,14 +124,9 @@ keyValueE hash source meterupdate = checkKeyChecksum :: Hash -> Key -> RawFilePath -> Annex Bool checkKeyChecksum hash key file = catchIOErrorType HardwareFault hwfault $ do - fast <- Annex.getRead Annex.fast - exists <- liftIO $ R.doesPathExist file - case (exists, fast) of - (True, False) -> do - showAction (UnquotedString descChecksum) - sameCheckSum key - <$> hashFile hash file nullMeterUpdate - _ -> return True + showAction (UnquotedString descChecksum) + sameCheckSum key + <$> hashFile hash file nullMeterUpdate where hwfault e = do warning $ UnquotedString $ "hardware fault: " ++ show e