From 6cb1dff757ffad735e04d6d8134f5fbfdea71650 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 7 Jan 2011 13:57:37 -0400
Subject: [PATCH] quiet git commits

---
 Command/Init.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Command/Init.hs b/Command/Init.hs
index 8ad9f79d70..47ac8e4c08 100644
--- a/Command/Init.hs
+++ b/Command/Init.hs
@@ -50,7 +50,7 @@ cleanup = do
 	g <- Annex.gitRepo
 	logfile <- uuidLog
 	liftIO $ Git.run g ["add", logfile]
-	liftIO $ Git.run g ["commit", "-m", "git annex init", logfile]
+	liftIO $ Git.run g ["commit", "-q", "-m", "git annex init", logfile]
 	return True
 
 {- configure git to use union merge driver on state files, if it is not
@@ -71,7 +71,7 @@ gitAttributesWrite repo = do
 		attributes = Git.attributes repo
 		commit = do
 			Git.run repo ["add", attributes]
-			Git.run repo ["commit", "-m", "git-annex setup", 
+			Git.run repo ["commit", "-q", "-m", "git-annex setup", 
 					attributes]
 
 attrLine :: String