Fix initremote with encryption=pubkey to work with S3, glacier, webdav, and external special remotes.
This commit is contained in:
parent
810b26e1d9
commit
3a3fda5bc0
4 changed files with 18 additions and 8 deletions
2
Creds.hs
2
Creds.hs
|
@ -51,7 +51,7 @@ setRemoteCredPair' c storage creds
|
|||
return c
|
||||
|
||||
storeconfig key (Just cipher) = do
|
||||
s <- liftIO $ encrypt [] cipher
|
||||
s <- liftIO $ encrypt (getGpgEncParams c) cipher
|
||||
(feedBytes $ L.pack $ encodeCredPair creds)
|
||||
(readBytes $ return . L.unpack)
|
||||
return $ M.insert key (toB64 s) c
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue