reorg
avoid Git.Command needing Utility.Batch which needs async For github-backup etc
This commit is contained in:
parent
ad7325a828
commit
fc67925fd7
3 changed files with 21 additions and 8 deletions
19
Git/Command/Batch.hs
Normal file
19
Git/Command/Batch.hs
Normal file
|
@ -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)
|
Loading…
Add table
Add a link
Reference in a new issue