diff options
author | Joey Hess <joey@kitenet.net> | 2011-07-14 16:56:06 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-07-14 17:15:37 -0400 |
commit | ded259112449f592bc42207e89c82268f3795f12 (patch) | |
tree | 6a3e624445cbd063e32f3f0247a552f0ff47074a /AnnexQueue.hs | |
parent | 0c46cbab09af8cc8761668885e58944d397b856d (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.hs | 6 |
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 () |