queue size fix

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

1 files changed, 2 insertions, 6 deletions

diff --git a/Git/Queue.hs b/Git/Queue.hs
index 78b52a2bc..acf6cd091 100644
--- a/Git/Queue.hs
+++ b/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. 
- -
- - Note that this does not increase the queue size, because data is
- - streamed into update-index, so command-line length limits are not
- - involved. -}
+{- Adds an update-index streamer to the queue. -}
 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