diff options
author | Joey Hess <joey@kitenet.net> | 2011-06-30 13:25:37 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-06-30 13:25:37 -0400 |
commit | f0497312a77d59f24c8273245ac324b02bb1eb13 (patch) | |
tree | 84fc94674e7bc2d99d1663e020f63d5e7b1c5db7 /AnnexQueue.hs | |
parent | 0f2859454cb1d1edd779fccd9b35e2b5d78b0861 (diff) |
rename GitQueue to Git.Queue
Diffstat (limited to 'AnnexQueue.hs')
-rw-r--r-- | AnnexQueue.hs | 12 |
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 } |