diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-11-20 16:43:58 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-11-20 16:43:58 -0400 |
| commit | 0d378285e709833f87547fd6fedc4e8b2f4884c4 (patch) | |
| tree | 6caa2c4ba7710c917751d26c5bf58cce2a1163e2 /Remote/WebDAV.hs | |
| parent | cba848b472a4ac323693b44fcef9ddbbe535c929 (diff) | |
Amazon Glacier special remote; 100% working
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 |