diff options
| author |  guilhem <guilhem@fripost.org> | 2013-03-11 02:33:13 +0100 |
|---|---|---|
| committer |  Joey Hess <joey@kitenet.net> | 2013-03-11 09:48:38 -0400 |
| commit | 7fa1e498de9cbb84b23f90b17c66d755292ae716 (patch) | |
| tree | dc1f5127473d3450b138b4aedfe43a5248d42939 /Remote/WebDAV.hs | |
| parent | f2292dc3b494dbed517a48ab2876594f5ace0179 (diff) | |
GnuPG options for symmetric encryption.
Diffstat (limited to 'Remote/WebDAV.hs')
| -rw-r--r-- | Remote/WebDAV.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Remote/WebDAV.hs b/Remote/WebDAV.hs index 84c30774a..b1c2ee4a8 100644 --- a/Remote/WebDAV.hs +++ b/Remote/WebDAV.hs @@ -92,7 +92,8 @@ storeEncrypted :: Remote -> (Cipher, Key) -> Key -> MeterUpdate -> Annex Bool storeEncrypted r (cipher, enck) k p = metered (Just p) k $ \meterupdate -> davAction r False $ \(baseurl, user, pass) -> sendAnnex k (void $ remove r enck) $ \src -> - liftIO $ encrypt cipher (streamMeteredFile src meterupdate) $ + liftIO $ encrypt (getGpgOpts r) cipher + (streamMeteredFile src meterupdate) $ readBytes $ storeHelper r enck baseurl user pass storeHelper :: Remote -> Key -> DavUrl -> DavUser -> DavPass -> L.ByteString -> IO Bool |