diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-07-26 22:34:10 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-07-26 22:34:40 -0400 |
| commit | c1cfb10215c56bf5125965fd7ea6b37bf99b343d (patch) | |
| tree | b9a1fb9b6095d65543471aed3056f7940aa24797 /Remote/Helper/Chunked.hs | |
| parent | a566ef1448bf2ad582308ea0d88a9f323aa24f22 (diff) | |
allM has slightly better memory use
Diffstat (limited to 'Remote/Helper/Chunked.hs')
| -rw-r--r-- | Remote/Helper/Chunked.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Remote/Helper/Chunked.hs b/Remote/Helper/Chunked.hs index baf47f067..4cb20b875 100644 --- a/Remote/Helper/Chunked.hs +++ b/Remote/Helper/Chunked.hs @@ -154,7 +154,7 @@ toChunkList k (chunksize, chunkcount) = takeChunkKeyStream chunkcount $ removeChunks :: (Key -> Annex Bool) -> UUID -> ChunkConfig -> EncKey -> Key -> Annex Bool removeChunks remover u chunkconfig encryptor k = do ls <- chunkKeys u chunkconfig k - ok <- and <$> mapM (remover . encryptor) (concat ls) + ok <- allM (remover . encryptor) (concat ls) when ok $ case chunkconfig of (UnpaddedChunks _) | not (isChunkKey k) -> do |