diff options
Diffstat (limited to 'Annex')
-rw-r--r-- | Annex/Queue.hs | 7 |
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 |