add git queue to Annex monad

not used anywhere just yet..

1 files changed, 9 insertions, 0 deletions

diff --git a/Core.hs b/Core.hs
index 881b668e0..4c7c9205e 100644
--- a/Core.hs
+++ b/Core.hs
@@ -14,6 +14,7 @@ import Locations
 import LocationLog
 import UUID
 import qualified GitRepo as Git
+import qualified GitQueue
 import qualified Annex
 import Utility
 			
@@ -30,6 +31,14 @@ shutdown :: Annex Bool
 shutdown = do
 	g <- Annex.gitRepo
 
+	-- Runs all queued git commands.
+	q <- Annex.queueGet
+	if (q == GitQueue.empty)
+		then return ()
+		else do
+			liftIO $ putStrLn "Recording state in git..."
+			liftIO $ GitQueue.run g q
+
 	liftIO $ Git.run g ["add", gitStateDir g]
 
 	-- clean up any files left in the temp directory, but leave