diff options
Diffstat (limited to 'Annex/Queue.hs')
| -rw-r--r-- | Annex/Queue.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Annex/Queue.hs b/Annex/Queue.hs index d4a2c592e..9f2ad6791 100644 --- a/Annex/Queue.hs +++ b/Annex/Queue.hs @@ -6,7 +6,7 @@ -} module Annex.Queue ( - add, + addCommand, flush, flushWhenFull ) where @@ -17,10 +17,10 @@ import qualified Git.Queue import Config {- Adds a git command to the queue. -} -add :: String -> [CommandParam] -> [FilePath] -> Annex () -add command params files = do +addCommand :: String -> [CommandParam] -> [FilePath] -> Annex () +addCommand command params files = do q <- get - store =<< inRepo (Git.Queue.add q command params files) + store =<< inRepo (Git.Queue.addCommand command params files q) {- Runs the queue if it is full. Should be called periodically. -} flushWhenFull :: Annex () |