diff options
Diffstat (limited to 'Remote/WebDAV.hs')
| -rw-r--r-- | Remote/WebDAV.hs | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/Remote/WebDAV.hs b/Remote/WebDAV.hs index 84f675bbd..b303dbe59 100644 --- a/Remote/WebDAV.hs +++ b/Remote/WebDAV.hs @@ -321,13 +321,7 @@ noProps :: XML.Document noProps = XML.parseText_ XML.def $ LT.pack "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<propertyupdate/>" getCreds :: RemoteConfig -> UUID -> Annex (Maybe CredPair) -getCreds c u = maybe missing (return . Just) =<< getRemoteCredPair c creds - where - creds = davCreds u - (loginvar, passwordvar) = credPairEnvironment creds - missing = do - warning $ "Set both " ++ loginvar ++ " and " ++ passwordvar ++ " to use webdav" - return Nothing +getCreds c u = getRemoteCredPair "webdav" c (davCreds u) davCreds :: UUID -> CredPairStorage davCreds u = CredPairStorage |