From aa3b4e0c23c77e14dbc31c28a183113442417b84 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 1 Mar 2013 16:21:29 -0400
Subject: assistant: Avoid noise in logs from git commit about typechanged
 files in direct mode repositories.

---
 Assistant/Threads/Committer.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'Assistant/Threads/Committer.hs')

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
-- 
cgit v1.2.3