summaryrefslogtreecommitdiff
path: root/AnnexQueue.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-07-14 16:56:06 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-07-14 17:15:37 -0400
commitded259112449f592bc42207e89c82268f3795f12 (patch)
tree6a3e624445cbd063e32f3f0247a552f0ff47074a /AnnexQueue.hs
parent0c46cbab09af8cc8761668885e58944d397b856d (diff)
unannex: Clean up use of git commit -a.
This was more complex than would be expected. unannex has to use git commit -a since it's removing files from git; git commit filelist won't do. Allow commands to be added to the Git queue that have no associated files, and run such commands once.
Diffstat (limited to 'AnnexQueue.hs')
-rw-r--r--AnnexQueue.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/AnnexQueue.hs b/AnnexQueue.hs
index 4c35adfb8..b1678df07 100644
--- a/AnnexQueue.hs
+++ b/AnnexQueue.hs
@@ -21,10 +21,10 @@ import Utility
{- Adds a git command to the queue, possibly running previously queued
- actions if enough have accumulated. -}
-add :: String -> [CommandParam] -> FilePath -> Annex ()
-add command params file = do
+add :: String -> [CommandParam] -> [FilePath] -> Annex ()
+add command params files = do
q <- getState repoqueue
- store $ Git.Queue.add q command params file
+ store $ Git.Queue.add q command params files
{- Runs the queue if it is full. Should be called periodically. -}
flushWhenFull :: Annex ()