diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-04-05 16:22:21 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-04-05 16:22:21 -0400 |
| commit | f33f3e5fa2ef208c6fdeb1f26c3dd3f5a0092b1a (patch) | |
| tree | b6c48a11660e1ca6587690e819e5cc570518a0e9 /Git | |
| parent | ac5401196d6657b2298b5f0ca1be5122d9821d20 (diff) | |
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.
Diffstat (limited to 'Git')
| -rw-r--r-- | Git/Branch.hs | 4 |
1 files changed, 0 insertions, 4 deletions
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 |