rename

1 files changed, 0 insertions, 42 deletions

diff --git a/AnnexQueue.hs b/AnnexQueue.hs
deleted file mode 100644
index 66843a75e..000000000
--- a/AnnexQueue.hs
+++ /dev/null
@@ -1,42 +0,0 @@
-{- git-annex command queue
- -
- - Copyright 2011 Joey Hess <joey@kitenet.net>
- -
- - Licensed under the GNU GPL version 3 or higher.
- -}
-
-module AnnexQueue (
-	add,
-	flush,
-	flushWhenFull
-) where
-
-import AnnexCommon
-import Annex
-import qualified Git.Queue
-
-{- Adds a git command to the queue. -}
-add :: String -> [CommandParam] -> [FilePath] -> Annex ()
-add command params files = do
-	q <- getState repoqueue
-	store $ Git.Queue.add q command params files
-
-{- Runs the queue if it is full. Should be called periodically. -}
-flushWhenFull :: Annex ()
-flushWhenFull = do
-	q <- getState repoqueue
-	when (Git.Queue.full q) $ flush False
-
-{- Runs (and empties) the queue. -}
-flush :: Bool -> Annex ()
-flush silent = do
-	q <- getState repoqueue
-	unless (0 == Git.Queue.size q) $ do
-		unless silent $
-			showSideAction "Recording state in git"
-		g <- gitRepo
-		q' <- liftIO $ Git.Queue.flush g q
-		store q'
-
-store :: Git.Queue.Queue -> Annex ()
-store q = changeState $ \s -> s { repoqueue = q }