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

add annex-proxied

Browse source 
This makes git-annex sync and similar not treat proxied remotes as git
syncable remotes.

Also, display in git-annex info remote when the remote is proxied.
This commit is contained in:
Joey Hess 2024-06-24 10:13:13 -04:00
parent 0c111fc96a
commit b8016eeb65
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
7 changed files with 31 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Remote/Git.hs
View file

@ -827,7 +827,8 @@ listProxied proxies rs = concat <$> mapM go rs
annexconfigadjuster r' =
let c = adduuid (configRepoUUID renamedr) $
addurl (remoteConfig renamedr "url") $
addurl $
addproxied $
inheritconfigs $ Git.fullconfig r'
in r'
{ Git.config = M.map Prelude.head c
@ -837,8 +838,11 @@ listProxied proxies rs = concat <$> mapM go rs
adduuid ck = M.insert ck
[Git.ConfigValue $ fromUUID $ proxyRemoteUUID p]
addurl ck = M.insert ck
addurl = M.insert (remoteConfig renamedr "url")
[Git.ConfigValue $ encodeBS $ Git.repoLocation r]
addproxied = M.insert (remoteAnnexConfig renamedr "proxied")
[Git.ConfigValue $ Git.Config.boolConfig' True]
inheritconfigs c = foldl' inheritconfig c proxyInheritedFields