roll ChunkedEncryptable into Special and improve interface
Allow disabling progress displays, for eg, rsync.
This commit is contained in:
parent
e1e5853c94
commit
4b16989e98
13 changed files with 245 additions and 240 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue