webapp: Fix creation of box.com, S3, and Glacier repositories, broken in 5.20140221.
This commit is contained in:
parent
d70220e0f4
commit
45e7040142
4 changed files with 14 additions and 12 deletions
|
@ -82,10 +82,10 @@ webdavSetup mu mcreds c = do
|
|||
let url = fromMaybe (error "Specify url=") $
|
||||
M.lookup "url" c
|
||||
c' <- encryptionSetup c
|
||||
creds <- getCreds c' u
|
||||
creds <- maybe (getCreds c' u) (return . Just) mcreds
|
||||
testDav url creds
|
||||
gitConfigSpecialRemote u c' "webdav" "true"
|
||||
c'' <- setRemoteCredPair c' (davCreds u) mcreds
|
||||
c'' <- setRemoteCredPair c' (davCreds u) creds
|
||||
return (c'', u)
|
||||
|
||||
store :: Remote -> Key -> AssociatedFile -> MeterUpdate -> Annex Bool
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue