diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-05-23 17:08:43 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-05-23 17:08:43 -0400 |
commit | 063d84ddd33f1aa0624cf5f363f2c58397b98562 (patch) | |
tree | c94f587d1338b5ab59bf44626c1d70915ec21134 /Remote/External.hs | |
parent | d5f672ddd59b43cb9b1bac8f836864165c8931f2 (diff) |
plumb RemoteGitConfig through to setRemoteCredPair
Diffstat (limited to 'Remote/External.hs')
-rw-r--r-- | Remote/External.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Remote/External.hs b/Remote/External.hs index 04834c78f..26858a7f0 100644 --- a/Remote/External.hs +++ b/Remote/External.hs @@ -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 |