diff options
| -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 |