diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-10-27 14:48:53 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-10-27 14:55:07 -0400 |
| commit | f84d66fa15bc746517ba61f2c05beade59c846e9 (patch) | |
| tree | 305bc642fa49c31ec205ee436b79ddc39ee540ab /Remote/Git.hs | |
| parent | c30366e95aa8967112cec0103393ea2b39ddf1c6 (diff) | |
reap in onLocal
Each onLocal call involves a new Annex state, so needs to clean up after it.
Diffstat (limited to 'Remote/Git.hs')
| -rw-r--r-- | Remote/Git.hs | 4 |
1 files changed, 3 insertions, 1 deletions
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 |