queue size fix

Increase queue size for update-index actions, because otherwise they'll
never be flushed.

1 files changed, 6 insertions, 1 deletions

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