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/Helper/Chunked.hs | |
parent | 38880b605f2bb22a9e1547e3407676b4bd89935c (diff) |
roll ChunkedEncryptable into Special and improve interface
Allow disabling progress displays, for eg, rsync.
Diffstat (limited to 'Remote/Helper/Chunked.hs')
-rw-r--r-- | Remote/Helper/Chunked.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Remote/Helper/Chunked.hs b/Remote/Helper/Chunked.hs index a7c43801a..2e9467b2a 100644 --- a/Remote/Helper/Chunked.hs +++ b/Remote/Helper/Chunked.hs @@ -8,7 +8,7 @@ module Remote.Helper.Chunked ( ChunkSize, ChunkConfig(..), - chunkConfig, + getChunkConfig, storeChunks, removeChunks, retrieveChunks, @@ -39,8 +39,8 @@ noChunks :: ChunkConfig -> Bool noChunks NoChunks = True noChunks _ = False -chunkConfig :: RemoteConfig -> ChunkConfig -chunkConfig m = +getChunkConfig :: RemoteConfig -> ChunkConfig +getChunkConfig m = case M.lookup "chunksize" m of Nothing -> case M.lookup "chunk" m of Nothing -> NoChunks |