assistant: Avoid noise in logs from git commit about typechanged files in direct mode repositories.

This commit is contained in:
Joey Hess 2013-03-01 16:21:29 -04:00
parent 2f2d67df85
commit 4d33423067
3 changed files with 11 additions and 1 deletions

View file

@ -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