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/Directory.hs | |
parent | 38880b605f2bb22a9e1547e3407676b4bd89935c (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.hs | 5 |
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 { |