queue size fix

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

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
 

Git/Queue.hs

@@ -98,14 +98,10 @@ addCommand subcommand params files q repo =
 		different (CommandAction { getSubcommand = s }) = s /= subcommand
 		different _ = True
 
-{- Adds an update-index streamer to the queue. 
+{- Adds an update-index streamer to the queue. -}
- -
- - Note that this does not increase the queue size, because data is
- - streamed into update-index, so command-line length limits are not
- - involved. -}
 addUpdateIndex :: Git.UpdateIndex.Streamer -> Queue -> Repo -> IO Queue
 addUpdateIndex streamer q repo =
-	updateQueue action different 0 q repo
+	updateQueue action different 1 q repo
 	where
 		key = actionKey action
 		-- streamer is added to the end of the list, since