diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-04-17 01:13:21 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-04-17 01:13:21 -0400 |
| commit | 50cfcdf54b828fbeab532b712e00063ae9e82581 (patch) | |
| tree | 1d32f1930baf8d9b13f257ca90ac4de16611effc /Remote | |
| parent | 89fab6c7b8955ef26e653d539f7be3b70129c15e (diff) | |
make encrypted remotes have slightly higher costs
Diffstat (limited to 'Remote')
| -rw-r--r-- | Remote/Encryptable.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Remote/Encryptable.hs b/Remote/Encryptable.hs index a9a7472fb..aa7c2a569 100644 --- a/Remote/Encryptable.hs +++ b/Remote/Encryptable.hs @@ -15,6 +15,7 @@ import RemoteClass import Crypto import qualified Annex import Messages +import Config {- Encryption setup for a remote. The user must specify whether to use - an encryption key, or not encrypt. An encrypted cipher is created, or is @@ -48,7 +49,8 @@ encryptableRemote c storeKeyEncrypted retrieveKeyFileEncrypted r = storeKey = store, retrieveKeyFile = retrieve, removeKey = withkey $ removeKey r, - hasKey = withkey $ hasKey r + hasKey = withkey $ hasKey r, + cost = cost r + encryptedRemoteCostAdj } where store k = do |