use git-annex branch for location log

This commit is contained in:
Joey Hess 2011-06-22 16:01:32 -04:00
parent 06c58922bd
commit 2e5c8ca6bf
2 changed files with 10 additions and 18 deletions

View file

@ -81,9 +81,7 @@ logStatusFor :: UUID -> Key -> LogStatus -> Annex ()
logStatusFor u key status = do
g <- Annex.gitRepo
unless (Git.repoIsLocalBare g) $ do
logfile <- logChange g key u status
rellogfile <- liftIO $ Git.workTreeFile g logfile
AnnexQueue.add "add" [Param "--"] rellogfile
logChange g key u status
{- Runs an action, passing it a temporary filename to download,
- and if the action succeeds, moves the temp file into