diff options
Diffstat (limited to 'Assistant')
-rw-r--r-- | Assistant/Threads/Committer.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Assistant/Threads/Committer.hs b/Assistant/Threads/Committer.hs index 0062e2324..bd858ed38 100644 --- a/Assistant/Threads/Committer.hs +++ b/Assistant/Threads/Committer.hs @@ -81,7 +81,7 @@ commitStaged = do Left _ -> return False Right _ -> do direct <- isDirect - void $ inRepo $ Git.Command.runBool "commit" $ nomessage $ + let params = nomessage $ catMaybes [ Just $ Param "--quiet" {- In indirect mode, avoid running the @@ -94,6 +94,8 @@ commitStaged = do {- Empty commits may be made if tree changes cancel - each other out, etc. Git returns nonzero on those, - so don't propigate out commit failures. -} + void $ inRepo $ catchMaybeIO . + Git.Command.runQuiet "commit" params return True where nomessage ps |