plumb RemoteGitConfig through to setRemoteCredPair
This commit is contained in:
parent
91df4c6b53
commit
22c174158c
5 changed files with 11 additions and 14 deletions
|
@ -91,7 +91,7 @@ webdavSetup mu mcreds c gc = do
|
|||
creds <- maybe (getCreds c' gc u) (return . Just) mcreds
|
||||
testDav url creds
|
||||
gitConfigSpecialRemote u c' "webdav" "true"
|
||||
c'' <- setRemoteCredPair encsetup c' (davCreds u) creds
|
||||
c'' <- setRemoteCredPair encsetup c' gc (davCreds u) creds
|
||||
return (c'', u)
|
||||
|
||||
-- Opens a http connection to the DAV server, which will be reused
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue