diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-08-03 15:35:23 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-08-03 15:40:01 -0400 |
| commit | b87dfe5ddfb3686ab0088c09e6e70bd7275a1f16 (patch) | |
| tree | 67218881a26ab597dada971414376201610bb1a8 /Remote/S3.hs | |
| parent | 38880b605f2bb22a9e1547e3407676b4bd89935c (diff) | |
roll ChunkedEncryptable into Special and improve interface
Allow disabling progress displays, for eg, rsync.
Diffstat (limited to 'Remote/S3.hs')
| -rw-r--r-- | Remote/S3.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Remote/S3.hs b/Remote/S3.hs index 68d8ee4bf..8603757eb 100644 --- a/Remote/S3.hs +++ b/Remote/S3.hs @@ -25,7 +25,6 @@ import qualified Git import Config import Config.Cost import Remote.Helper.Special -import Remote.Helper.ChunkedEncryptable import qualified Remote.Helper.AWS as AWS import Creds import Utility.Metered @@ -45,7 +44,7 @@ remote = RemoteType { gen :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> Annex (Maybe Remote) gen r u c gc = new <$> remoteCost gc expensiveRemoteCost where - new cst = Just $ chunkedEncryptableRemote c + new cst = Just $ specialRemote c (prepareStore this) (prepareRetrieve this) this |