From 49d0a553f8088862e9268942ebca5c5f36f5ff6b Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 3 Mar 2013 15:18:24 -0400
Subject: fix

---
 Assistant/Threads/Committer.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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

diff --git a/Assistant/Threads/Committer.hs b/Assistant/Threads/Committer.hs
index 99d01b580..5887f5e43 100644
--- a/Assistant/Threads/Committer.hs
+++ b/Assistant/Threads/Committer.hs
@@ -82,8 +82,7 @@ commitStaged = do
 		Right _ -> do
 			direct <- isDirect
 			let params = nomessage $ catMaybes
-				[ Just $ Param "commit"
-				, Just $ Param "--quiet"
+				[ Just $ Param "--quiet"
 				{- In indirect mode, avoid running the
 				 - usual git-annex pre-commit hook;
 				 - watch does the same symlink fixing,
@@ -95,7 +94,7 @@ commitStaged = do
 			 - each other out, etc. Git returns nonzero on those,
 			 - so don't propigate out commit failures. -}
 			void $ inRepo $ catchMaybeIO . 
-				Git.Command.runQuiet params
+				Git.Command.runQuiet (Param "commit" : params)
 			return True
   where
 	nomessage ps
-- 
cgit v1.2.3