aboutsummaryrefslogtreecommitdiff
path: root/Core.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-10-26 16:15:29 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-10-26 16:15:29 -0400
commit24ee4439d4783cde7102f4ffd857c521367ce16f (patch)
treee675a22a20a14590e0be153a48c7facac5cf8357 /Core.hs
parentef26076a5a3df9b8740883e3f7b3b68585b47ad5 (diff)
use git command queue
Diffstat (limited to 'Core.hs')
-rw-r--r--Core.hs5
1 files changed, 2 insertions, 3 deletions
diff --git a/Core.hs b/Core.hs
index 4c7c9205e..27baba28e 100644
--- a/Core.hs
+++ b/Core.hs
@@ -39,8 +39,6 @@ shutdown = 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
-- the tmp directory itself
let tmp = annexTmpLocation g
@@ -106,7 +104,8 @@ logStatus :: Key -> LogStatus -> Annex ()
logStatus key status = do
g <- Annex.gitRepo
u <- getUUID g
- liftIO $ logChange g key u status
+ log <- liftIO $ logChange g key u status
+ Annex.queue "add" [] log
{- Runs an action, passing it a temporary filename to download,
- and if the action succeeds, moves the temp file into