From 772719d73a6feb182cbd69a632ed39bc6dc13f2f Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Fri, 9 Dec 2016 12:54:18 -0400
Subject: 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(-)

(limited to 'Remote')

diff --git a/Remote/Git.hs b/Remote/Git.hs
index 41fb46e82..9602f81c6 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"
-- 
cgit v1.2.3