diff options
author | Joey Hess <joey@kitenet.net> | 2014-07-04 12:18:49 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2014-07-04 12:18:49 -0400 |
commit | 5a3f88cabe2fb61c22405ff98f55b0f17658f03d (patch) | |
tree | d6cebb2f6d53607786bdbb4d15eb4804dfd74d6c /Git/Command | |
parent | 3a88047aa22e10507c33081c35673d0bac6b6e18 (diff) |
reorg
avoid Git.Command needing Utility.Batch which needs async
For github-backup etc
Diffstat (limited to 'Git/Command')
-rw-r--r-- | Git/Command/Batch.hs | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/Git/Command/Batch.hs b/Git/Command/Batch.hs new file mode 100644 index 000000000..9cc176008 --- /dev/null +++ b/Git/Command/Batch.hs @@ -0,0 +1,19 @@ +{- running batch git commands + - + - Copyright 2010-2013 Joey Hess <joey@kitenet.net> + - + - Licensed under the GNU GPL version 3 or higher. + -} + +module Git.Command.Batch where + +import Common +import Git +import Git.Command +import Utility.Batch + +{- Runs git in batch mode. -} +run :: BatchCommandMaker -> [CommandParam] -> Repo -> IO Bool +run batchmaker params repo = assertLocal repo $ do + let (cmd, params') = batchmaker ("git", gitCommandLine params repo) + boolSystemEnv cmd params' (gitEnv repo) |