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 | eb9ac8d6d743babb6714ba6a4ceefda32d9cde0d (patch) | |
| tree | 087d250608d758ac64f9aa6be0f0ba12eeaab00c /Git/Branch.hs | |
| parent | b9c16568eff89cc97c7a737a9e1d1f99745fe336 (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/Branch.hs')
| -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 76097fe133..8f79f59b65 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 |