summaryrefslogtreecommitdiff
path: root/Core.hs
diff options
context:
space:
mode:
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