diff options
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 |