From f84d66fa15bc746517ba61f2c05beade59c846e9 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 27 Oct 2011 14:48:53 -0400
Subject: reap in onLocal

Each onLocal call involves a new Annex state, so needs to clean up after it.
---
 Remote/Git.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'Remote/Git.hs')

diff --git a/Remote/Git.hs b/Remote/Git.hs
index 4285be653..fd3a61243 100644
--- a/Remote/Git.hs
+++ b/Remote/Git.hs
@@ -157,7 +157,9 @@ onLocal r a = do
 		-- No need to update the branch; its data is not used
 		-- for anything onLocal is used to do.
 		Annex.Branch.disableUpdate
-		a
+		ret <- a
+		liftIO $ Git.reap
+		return ret
 
 keyUrl :: Git.Repo -> Key -> String
 keyUrl r key = Git.repoLocation r ++ "/" ++ annexLocation key
-- 
cgit v1.2.3