diff options
Diffstat (limited to 'Remote')
| -rw-r--r-- | Remote/Glacier.hs | 3 | ||||
| -rw-r--r-- | Remote/WebDAV.hs | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/Remote/Glacier.hs b/Remote/Glacier.hs index 0e2796da2..99003f29a 100644 --- a/Remote/Glacier.hs +++ b/Remote/Glacier.hs @@ -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. diff --git a/Remote/WebDAV.hs b/Remote/WebDAV.hs index 0981c4373..932ed81e0 100644 --- a/Remote/WebDAV.hs +++ b/Remote/WebDAV.hs @@ -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 |