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

catch lockContentForRemoval exception

Browse source 
removeKey should not throw exceptions, so catch exception there

In Assistant.Unused, keep trying to drop other keys if one drop fails
This commit is contained in:
Joey Hess 2018-11-15 15:38:55 -04:00
parent 2df31610ed
commit 370757087d
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
3 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Remote/Git.hs
View file

@ -377,7 +377,9 @@ keyUrls gc repo r key = map tourl locs'
dropKey :: Remote -> State -> Key -> Annex Bool
dropKey r st key = do
repo <- getRepo r
dropKey' repo r st key
catchNonAsync
(dropKey' repo r st key)
(\e -> warning (show e) >> return False)
dropKey' :: Git.Repo -> Remote -> State -> Key -> Annex Bool
dropKey' repo r (State connpool duc _) key