diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-04-07 13:59:31 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-04-07 13:59:31 -0400 |
| commit | bc51387e6dd426f46f9ab0ef23e6e3eefe7a4417 (patch) | |
| tree | 9627f60c81d1852b731ea57171f4b36887847e9b /Content.hs | |
| parent | 77f45e4e45d45a08bfe1bec210909345adb6f6d8 (diff) | |
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.
Diffstat (limited to 'Content.hs')
| -rw-r--r-- | Content.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |