aboutsummaryrefslogtreecommitdiff
path: root/Remote/Directory.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-08-03 15:35:23 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-08-03 15:40:01 -0400
commitb87dfe5ddfb3686ab0088c09e6e70bd7275a1f16 (patch)
tree67218881a26ab597dada971414376201610bb1a8 /Remote/Directory.hs
parent38880b605f2bb22a9e1547e3407676b4bd89935c (diff)
roll ChunkedEncryptable into Special and improve interface
Allow disabling progress displays, for eg, rsync.
Diffstat (limited to 'Remote/Directory.hs')
-rw-r--r--Remote/Directory.hs5
1 files changed, 2 insertions, 3 deletions
diff --git a/Remote/Directory.hs b/Remote/Directory.hs
index 78d30b1a1..db141e01a 100644
--- a/Remote/Directory.hs
+++ b/Remote/Directory.hs
@@ -20,7 +20,6 @@ import Config.Cost
import Config
import Utility.FileMode
import Remote.Helper.Special
-import Remote.Helper.ChunkedEncryptable
import qualified Remote.Directory.LegacyChunked as Legacy
import Annex.Content
import Annex.UUID
@@ -37,8 +36,8 @@ remote = RemoteType {
gen :: Git.Repo -> UUID -> RemoteConfig -> RemoteGitConfig -> Annex (Maybe Remote)
gen r u c gc = do
cst <- remoteCost gc cheapRemoteCost
- let chunkconfig = chunkConfig c
- return $ Just $ chunkedEncryptableRemote c
+ let chunkconfig = getChunkConfig c
+ return $ Just $ specialRemote c
(prepareStore dir chunkconfig)
(retrieve dir chunkconfig)
Remote {