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

GETCONFIG name fix

Browse source 
Fix regression that prevented external special remotes from using GETCONFIG
to query values like "name". (Introduced in version 7.20200202.7.)
This commit is contained in:
Joey Hess 2020-03-09 12:38:04 -04:00
parent d9bd645bf8
commit 6a91471923
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
4 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Remote/External.hs
View file

@ -424,9 +424,9 @@ handleRequest' st external req mp responsehandler
modifyTVar' (externalConfigChanges st) $ \f ->
f . M.insert (Accepted setting) (Accepted value)
handleRemoteRequest (GETCONFIG setting) = do
value <- fromMaybe ""
value <- maybe "" fromProposedAccepted
. (M.lookup (Accepted setting))
. getRemoteConfigPassedThrough
. unparsedRemoteConfig
<$> liftIO (atomically $ readTVar $ externalConfig st)
send $ VALUE value
handleRemoteRequest (SETCREDS setting login password) = case (externalUUID external, externalGitConfig external) of