include creds info for glacier and webdav

That and S3 are all that uses creds currently, except that external
remotes can use creds. I have not handled showing info about external
remote creds because they can have 0, 1, or more separate cred pairs, and
there's no way for info to enumerate them or know how they're used.
So it seems ok to leave out creds info for external remotes.
This commit is contained in:
Joey Hess 2014-10-22 13:56:14 -04:00
parent 98881ffc6e
commit 3006b79c86
2 changed files with 4 additions and 2 deletions

View file

@ -67,7 +67,8 @@ gen r u c gc = new <$> remoteCost gc veryExpensiveRemoteCost
availability = GloballyAvailable,
remotetype = remote,
mkUnavailable = return Nothing,
getInfo = return [("glacier vault", getVault c)]
getInfo = includeCredsInfo c (AWS.creds u) $
[ ("glacier vault", getVault c) ]
}
specialcfg = (specialRemoteCfg c)
-- Disabled until jobList gets support for chunks.

View file

@ -72,7 +72,8 @@ gen r u c gc = new <$> remoteCost gc expensiveRemoteCost
availability = GloballyAvailable,
remotetype = remote,
mkUnavailable = gen r u (M.insert "url" "http://!dne!/" c) gc,
getInfo = return [("url", fromMaybe "unknown" (M.lookup "url" c))]
getInfo = includeCredsInfo c (davCreds u) $
[("url", fromMaybe "unknown" (M.lookup "url" c))]
}
chunkconfig = getChunkConfig c