From c5707c84d372fc668b957c5d0b224bcf524e04f1 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 10 Jun 2012 13:56:04 -0400
Subject: queue size fix

Increase queue size for update-index actions, because otherwise they'll
never be flushed.
---
 Annex/Queue.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'Annex')

diff --git a/Annex/Queue.hs b/Annex/Queue.hs
index a7d4e153b..c019aed6c 100644
--- a/Annex/Queue.hs
+++ b/Annex/Queue.hs
@@ -9,7 +9,8 @@ module Annex.Queue (
 	addCommand,
 	addUpdateIndex,
 	flush,
-	flushWhenFull
+	flushWhenFull,
+	size
 ) where
 
 import Common.Annex
@@ -45,6 +46,10 @@ flush = do
 		q' <- inRepo $ Git.Queue.flush q
 		store q'
 
+{- Gets the size of the queue. -}
+size :: Annex Int
+size = Git.Queue.size <$> get
+
 get :: Annex Git.Queue.Queue
 get = maybe new return =<< getState repoqueue
 
-- 
cgit v1.2.3