From 0859c35391c71bcacd99c1c383885a40b849e1a0 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 26 Jul 2014 22:47:52 -0400 Subject: fix another fallback bug --- Remote/Helper/Chunked.hs | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'Remote/Helper/Chunked.hs') diff --git a/Remote/Helper/Chunked.hs b/Remote/Helper/Chunked.hs index 4cb20b875..5a52a1f4b 100644 --- a/Remote/Helper/Chunked.hs +++ b/Remote/Helper/Chunked.hs @@ -146,7 +146,9 @@ toChunkList k (chunksize, chunkcount) = takeChunkKeyStream chunkcount $ chunkKeyStream k chunksize {- Removes all chunks of a key from a remote, by calling a remover - - action on each. The remover action should succeed even if asked to + - action on each. + - + - The remover action should succeed even if asked to - remove a key that is not present on the remote. - - This action may be called on a chunked key. It will simply remove it. @@ -231,7 +233,9 @@ hasKeyChunks checker u chunkconfig encryptor basek = do case v of Left e -> checklists e ls Right True -> return (Right True) - Right False -> checklists impossible ls + Right False + | null ls -> return (Right False) + | otherwise -> checklists impossible ls | otherwise = checklists impossible ls checkchunks :: [Key] -> Annex (Either String Bool) -- cgit v1.2.3