lockContent in dropkey

This is needed for drop --from and move --from to check the lock,
as they do not use git-annex-shell inannex.
This commit is contained in:
Joey Hess 2011-11-09 19:47:04 -04:00
parent d3e1a3619f
commit 992bf13382

View file

@ -35,7 +35,7 @@ start key = do
error "dropkey can cause data loss; use --force if you're sure you want to do this"
perform :: Key -> CommandPerform
perform key = do
perform key = lockContent key $ do
removeAnnex key
next $ cleanup key