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

move several readonly values to AnnexRead

Browse source 
This improves performance to a small extent in several places.

Sponsored-by: Tobias Ammann on Patreon
This commit is contained in:
Joey Hess 2022-06-28 15:28:14 -04:00
parent 4174ee33a4
commit cb9cf30c48
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
42 changed files with 81 additions and 88 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Remote/GitLFS.hs
View file

@ -149,7 +149,7 @@ mySetup ss mu _ c gc = do
(c', _encsetup) <- encryptionSetup c gc
pc <- either giveup return . parseRemoteConfig c' =<< configParser remote c'
let failinitunlessforced msg = case ss of
Init -> unlessM (Annex.getState Annex.force) (giveup msg)
Init -> unlessM (Annex.getRead Annex.force) (giveup msg)
Enable _ -> noop
AutoEnable _ -> noop
case (isEncrypted pc, Git.GCrypt.urlPrefix `isPrefixOf` url) of

2
Remote/Helper/Encryptable.hs
View file

@ -197,7 +197,7 @@ encryptionSetup c gc = do
cipher <- liftIO a
showNote (describeCipher cipher)
return (storeCipher cipher c', EncryptionIsSetup)
highRandomQuality = ifM (Annex.getState Annex.fast)
highRandomQuality = ifM (Annex.getRead Annex.fast)
( return False
, case parseHighRandomQuality (fromProposedAccepted <$> M.lookup highRandomQualityField c) of
Left err -> giveup err

2
Remote/S3.hs
View file

@ -312,7 +312,7 @@ s3Setup' ss u mcreds c gc
use archiveconfig pc' info
checkexportimportsafe c' info =
unlessM (Annex.getState Annex.force) $
unlessM (Annex.getRead Annex.force) $
checkexportimportsafe' c' info
checkexportimportsafe' c' info
| versioning info = return ()