queue size fix

Increase queue size for update-index actions, because otherwise they'll
never be flushed.
This commit is contained in:
Joey Hess 2012-06-10 13:56:04 -04:00
parent e5f855b7f8
commit c5707c84d3
2 changed files with 8 additions and 7 deletions

View file

@ -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