mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix another fallback bug

Browse source
This commit is contained in:
Joey Hess 2014-07-26 22:47:52 -04:00
parent 86e8532c0a
commit 93be3296fc
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Remote/Helper/Chunked.hs
View file

@ -146,7 +146,9 @@ toChunkList k (chunksize, chunkcount) = takeChunkKeyStream chunkcount $
chunkKeyStream k chunksize chunkKeyStream k chunksize
{- Removes all chunks of a key from a remote, by calling a remover {- 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. - remove a key that is not present on the remote.
- -
- This action may be called on a chunked key. It will simply remove it. - 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 case v of
Left e -> checklists e ls Left e -> checklists e ls
Right True -> return (Right True) 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 | otherwise = checklists impossible ls
checkchunks :: [Key] -> Annex (Either String Bool) checkchunks :: [Key] -> Annex (Either String Bool)