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

plumb RemoteGitConfig through to setRemoteCredPair

Browse source
This commit is contained in:
Joey Hess 2016-05-23 17:08:43 -04:00
parent 91df4c6b53
commit 22c174158c
Failed to extract signature
5 changed files with 11 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Remote/External.hs
View file

@ -241,7 +241,8 @@ handleRequest' lck external req mp responsehandler
send $ VALUE value
handleRemoteRequest (SETCREDS setting login password) = do
c <- liftIO $ atomically $ readTMVar $ externalConfig external
c' <- setRemoteCredPair encryptionAlreadySetup c (credstorage setting) $
gc <- liftIO $ atomically $ readTMVar $ externalGitConfig external
c' <- setRemoteCredPair encryptionAlreadySetup c gc (credstorage setting) $
Just (login, password)
void $ liftIO $ atomically $ swapTMVar (externalConfig external) c'
handleRemoteRequest (GETCREDS setting) = do