Fix initremote with encryption=pubkey to work with S3, glacier, webdav, and external special remotes.

This commit is contained in:
Joey Hess 2014-02-06 18:25:31 -04:00
parent 810b26e1d9
commit 3a3fda5bc0
4 changed files with 18 additions and 8 deletions

View file

@ -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