From 0f3a3ff1e531a5c670339d6c87553f0e28a7ff8c Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Fri, 9 Dec 2016 12:54:18 -0400
Subject: [PATCH] make clear that log is only updated after successful removal

This does not change behavior, because an exception is thrown on
unsuccessful removal. But is clearer.
---
 Remote/Git.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Remote/Git.hs b/Remote/Git.hs
index 41fb46e82e..9602f81c69 100644
--- a/Remote/Git.hs
+++ b/Remote/Git.hs
@@ -356,9 +356,9 @@ dropKey r key
 			commitOnCleanup r $ onLocal r $ do
 				ensureInitialized
 				whenM (Annex.Content.inAnnex key) $ do
-					Annex.Content.lockContentForRemoval key
+					Annex.Content.lockContentForRemoval key $ do
 						Annex.Content.removeAnnex
-					logStatus key InfoMissing
+						logStatus key InfoMissing
 					Annex.Content.saveState True
 				return True
 	| Git.repoIsHttp (repo r) = giveup "dropping from http remote not supported"