From f33f3e5fa2ef208c6fdeb1f26c3dd3f5a0092b1a Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 5 Apr 2016 16:22:21 -0400 Subject: sync: Show output of git commit. Rationalle: User might have hook scripts whose output they want to see. Also, git commit output may tell the user they forgot to add a file. The output is not too ugly when there's nothing to commit. --- Git/Branch.hs | 4 ---- 1 file changed, 4 deletions(-) (limited to 'Git') diff --git a/Git/Branch.hs b/Git/Branch.hs index 76097fe13..8f79f59b6 100644 --- a/Git/Branch.hs +++ b/Git/Branch.hs @@ -131,10 +131,6 @@ applyCommitMode commitmode ps commitCommand :: CommitMode -> [CommandParam] -> Repo -> IO Bool commitCommand = commitCommand' runBool -{- Commit will fail when the tree is clean. This suppresses that error. -} -commitQuiet :: CommitMode -> [CommandParam] -> Repo -> IO () -commitQuiet commitmode ps = void . tryIO . commitCommand' runQuiet commitmode ps - commitCommand' :: ([CommandParam] -> Repo -> IO a) -> CommitMode -> [CommandParam] -> Repo -> IO a commitCommand' runner commitmode ps = runner $ Param "commit" : applyCommitMode commitmode ps -- cgit v1.2.3