summaryrefslogtreecommitdiff
path: root/Git/Command.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-07-04 12:18:49 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-07-04 12:18:49 -0400
commit5a3f88cabe2fb61c22405ff98f55b0f17658f03d (patch)
treed6cebb2f6d53607786bdbb4d15eb4804dfd74d6c /Git/Command.hs
parent3a88047aa22e10507c33081c35673d0bac6b6e18 (diff)
reorg
avoid Git.Command needing Utility.Batch which needs async For github-backup etc
Diffstat (limited to 'Git/Command.hs')
-rw-r--r--Git/Command.hs7
1 files changed, 0 insertions, 7 deletions
diff --git a/Git/Command.hs b/Git/Command.hs
index 39a3c6849..30d2dcbf9 100644
--- a/Git/Command.hs
+++ b/Git/Command.hs
@@ -13,7 +13,6 @@ import Common
import Git
import Git.Types
import qualified Utility.CoProcess as CoProcess
-import Utility.Batch
{- Constructs a git command line operating on the specified repo. -}
gitCommandLine :: [CommandParam] -> Repo -> [CommandParam]
@@ -31,12 +30,6 @@ runBool :: [CommandParam] -> Repo -> IO Bool
runBool params repo = assertLocal repo $
boolSystemEnv "git" (gitCommandLine params repo) (gitEnv repo)
-{- Runs git in batch mode. -}
-runBatch :: BatchCommandMaker -> [CommandParam] -> Repo -> IO Bool
-runBatch batchmaker params repo = assertLocal repo $ do
- let (cmd, params') = batchmaker ("git", gitCommandLine params repo)
- boolSystemEnv cmd params' (gitEnv repo)
-
{- Runs git in the specified repo, throwing an error if it fails. -}
run :: [CommandParam] -> Repo -> IO ()
run params repo = assertLocal repo $