fix
authorJoey Hess <joeyh@joeyh.name>
Fri, 9 Dec 2016 16:56:38 +0000 (12:56 -0400)
committerJoey Hess <joeyh@joeyh.name>
Fri, 9 Dec 2016 16:56:38 +0000 (12:56 -0400)
Remote/Git.hs

index 9602f81c698030aa75b5fd8b283d97b234e32d84..37a9f48b3ec5266ccc057e777fb9757bd9510aff 100644 (file)
@@ -356,8 +356,8 @@ dropKey r key
                        commitOnCleanup r $ onLocal r $ do
                                ensureInitialized
                                whenM (Annex.Content.inAnnex key) $ do
-                                       Annex.Content.lockContentForRemoval key $ do
-                                               Annex.Content.removeAnnex
+                                       Annex.Content.lockContentForRemoval key $ \lock -> do
+                                               Annex.Content.removeAnnex lock
                                                logStatus key InfoMissing
                                        Annex.Content.saveState True
                                return True