From 335c06171ac9a45a76b3b92d647615142bcc6ba0 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 17 Oct 2010 18:52:09 -0400
Subject: commit logs at end; faster

---
 Core.hs | 20 +++++++++-----------
 1 file changed, 9 insertions(+), 11 deletions(-)

(limited to 'Core.hs')

diff --git a/Core.hs b/Core.hs
index 302e304e4..5f63002c1 100644
--- a/Core.hs
+++ b/Core.hs
@@ -34,8 +34,10 @@ shutdown = do
 	nocommit <- Annex.flagIsSet NoCommit
 	needcommit <- Annex.flagIsSet NeedCommit
 	if (needcommit && not nocommit)
-		then liftIO $ Git.run g ["commit", "-q", "-m", 
-			"git-annex log update", gitStateDir g]
+		then do
+			liftIO $ Git.run g ["add", gitStateDir g]
+			liftIO $ Git.run g ["commit", "-q", "-m", 
+				"git-annex log update", gitStateDir g]
 		else return ()
 
 	-- clean up any files left in the temp directory
@@ -75,14 +77,12 @@ inAnnex key = do
 	g <- Annex.gitRepo
 	liftIO $ doesFileExist $ annexLocation g key
 
-{- Adds, optionally also commits a file to git.
- -
- - All changes to the git repository should go through this function.
+{- Adds and commits a file to git.
  -
  - This is careful to not rely on the index. It may have staged changes,
  - so only use operations that avoid committing such changes.
  -}
-gitAdd :: FilePath -> Maybe String -> Annex ()
+gitAdd :: FilePath -> String -> Annex ()
 gitAdd file commitmessage = do
 	nocommit <- Annex.flagIsSet NoCommit
 	if (nocommit)
@@ -90,10 +90,8 @@ gitAdd file commitmessage = do
 		else do
 			g <- Annex.gitRepo
 			liftIO $ Git.run g ["add", file]
-			if (isJust commitmessage)
-				then liftIO $ Git.run g ["commit", "--quiet", 
-					"-m", (fromJust commitmessage), file]
-				else Annex.flagChange NeedCommit True
+			liftIO $ Git.run g ["commit", "--quiet", 
+				"-m", commitmessage, file]
 
 {- Calculates the relative path to use to link a file to a key. -}
 calcGitLink :: FilePath -> Key -> Annex FilePath
@@ -112,7 +110,7 @@ logStatus key status = do
 	g <- Annex.gitRepo
 	u <- getUUID g
 	f <- liftIO $ logChange g key u status
-	gitAdd f Nothing -- all logs are committed at end
+	Annex.flagChange NeedCommit True -- commit all logs at end
 
 {- Output logging -}
 showStart :: String -> String -> Annex ()
-- 
cgit v1.2.3