From bbbe9858fe2e83767661282f7ab8ed3470ec6568 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 14 Oct 2010 23:52:45 -0400
Subject: avoid empty commits

---
 Core.hs | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'Core.hs')

diff --git a/Core.hs b/Core.hs
index 765b1e6a7..8f1c9cc80 100644
--- a/Core.hs
+++ b/Core.hs
@@ -14,7 +14,7 @@ import qualified Annex
 {- Sets up a git repo for git-annex. -}
 startup :: [Flag] -> Annex ()
 startup flags = do
-	Annex.flagsChange flags
+	mapM (\f -> Annex.flagChange f True) flags
 	g <- Annex.gitRepo
 	liftIO $ gitAttributes g
 	prepUUID
@@ -23,8 +23,11 @@ startup flags = do
 shutdown :: Annex ()
 shutdown = do
 	g <- Annex.gitRepo
-	liftIO $ Git.run g ["commit", "-m", 
-		"git-annex log update", ".git-annex"]
+	needcommit <- Annex.flagIsSet NeedCommit
+	if (needcommit)
+		then liftIO $ Git.run g ["commit", "-m", 
+			"git-annex log update", ".git-annex"]
+		else return ()
 
 {- configure git to use union merge driver on state files, if it is not
  - already -}
-- 
cgit v1.2.3