From bc51387e6dd426f46f9ab0ef23e6e3eefe7a4417 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 7 Apr 2011 13:59:31 -0400
Subject: Periodically flush git command queue, to avoid boating memory usage
 too much.

Since the queue is flushed in between subcommand actions being run,
there should be no issues with actions that expect to queue up some stuff
and have it run after they do other stuff. So I didn't have to audit for
such assumptions.
---
 Content.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Content.hs')

diff --git a/Content.hs b/Content.hs
index ba265c930..f63c02311 100644
--- a/Content.hs
+++ b/Content.hs
@@ -36,6 +36,7 @@ import LocationLog
 import UUID
 import qualified GitRepo as Git
 import qualified Annex
+import qualified AnnexQueue
 import Utility
 import StatFS
 import Key
@@ -72,7 +73,7 @@ logStatus key status = do
 	unless (Git.repoIsLocalBare g) $ do
 		u <- getUUID g
 		logfile <- liftIO $ logChange g key u status
-		Annex.queue "add" [Param "--"] logfile
+		AnnexQueue.add "add" [Param "--"] logfile
 
 {- Runs an action, passing it a temporary filename to download,
  - and if the action succeeds, moves the temp file into 
-- 
cgit v1.2.3