summaryrefslogtreecommitdiff
path: root/AnnexQueue.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-06-30 13:25:37 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-06-30 13:25:37 -0400
commitf0497312a77d59f24c8273245ac324b02bb1eb13 (patch)
tree84fc94674e7bc2d99d1663e020f63d5e7b1c5db7 /AnnexQueue.hs
parent0f2859454cb1d1edd779fccd9b35e2b5d78b0861 (diff)
rename GitQueue to Git.Queue
Diffstat (limited to 'AnnexQueue.hs')
-rw-r--r--AnnexQueue.hs12
1 files changed, 6 insertions, 6 deletions
diff --git a/AnnexQueue.hs b/AnnexQueue.hs
index 58e77a6e8..4c35adfb8 100644
--- a/AnnexQueue.hs
+++ b/AnnexQueue.hs
@@ -16,7 +16,7 @@ import Control.Monad (when, unless)
import Annex
import Messages
-import qualified GitQueue
+import qualified Git.Queue
import Utility
{- Adds a git command to the queue, possibly running previously queued
@@ -24,24 +24,24 @@ import Utility
add :: String -> [CommandParam] -> FilePath -> Annex ()
add command params file = do
q <- getState repoqueue
- store $ GitQueue.add q command params file
+ store $ Git.Queue.add q command params file
{- Runs the queue if it is full. Should be called periodically. -}
flushWhenFull :: Annex ()
flushWhenFull = do
q <- getState repoqueue
- when (GitQueue.full q) $ flush False
+ when (Git.Queue.full q) $ flush False
{- Runs (and empties) the queue. -}
flush :: Bool -> Annex ()
flush silent = do
q <- getState repoqueue
- unless (0 == GitQueue.size q) $ do
+ unless (0 == Git.Queue.size q) $ do
unless silent $
showSideAction "Recording state in git..."
g <- gitRepo
- q' <- liftIO $ GitQueue.flush g q
+ q' <- liftIO $ Git.Queue.flush g q
store q'
-store :: GitQueue.Queue -> Annex ()
+store :: Git.Queue.Queue -> Annex ()
store q = changeState $ \s -> s { repoqueue = q }