mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

use git command queue

Browse source
This commit is contained in:
Joey Hess 2010-10-26 16:15:29 -04:00
parent ef26076a5a
commit 24ee4439d4
3 changed files with 16 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

6
LocationLog.hs
View file

@ -82,12 +82,14 @@ instance Read LogLine where
undefined = ret $ LogLine (0) Undefined ""
ret v = [(v, "")]
{- Log a change in the presence of a key's value in a repository. -}
logChange :: Git.Repo -> Key -> UUID -> LogStatus -> IO ()
{- Log a change in the presence of a key's value in a repository,
- and returns the filename of the logfile. -}
logChange :: Git.Repo -> Key -> UUID -> LogStatus -> IO (FilePath)
logChange repo key uuid status = do
log <- logNow status uuid
ls <- readLog logfile
writeLog logfile (compactLog $ log:ls)
return logfile
where
logfile = logFile repo key