summaryrefslogtreecommitdiff
path: root/Git/Command.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-03-01 16:21:29 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-03-01 16:21:29 -0400
commitaa3b4e0c23c77e14dbc31c28a183113442417b84 (patch)
tree66ea238a643277b7af59fdf869963612783cbc16 /Git/Command.hs
parentfc0d04b025d79520d4ef2ebfdbacc8c53a91aee4 (diff)
assistant: Avoid noise in logs from git commit about typechanged files in direct mode repositories.
Diffstat (limited to 'Git/Command.hs')
-rw-r--r--Git/Command.hs6
1 files changed, 6 insertions, 0 deletions
diff --git a/Git/Command.hs b/Git/Command.hs
index 88fed56e8..af3ca1c4a 100644
--- a/Git/Command.hs
+++ b/Git/Command.hs
@@ -37,6 +37,12 @@ run subcommand params repo = assertLocal repo $
unlessM (runBool subcommand params repo) $
error $ "git " ++ subcommand ++ " " ++ show params ++ " failed"
+{- Runs git and forces it to be quiet, throwing an error if it fails. -}
+runQuiet :: String -> [CommandParam] -> Repo -> IO ()
+runQuiet subcommand params repo = withQuietOutput createProcessSuccess $
+ (proc "git" $ toCommand $ gitCommandLine (Param subcommand : params) repo)
+ { env = gitEnv repo }
+
{- Runs a git subcommand and returns its output, lazily.
-
- Also returns an action that should be used when the output is all