mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

sync: Show output of git commit.

Browse source 
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.
This commit is contained in:
Joey Hess 2016-04-05 16:22:21 -04:00
parent b9c16568ef
commit eb9ac8d6d7
Failed to extract signature
3 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Git/Branch.hs
View file

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