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

reorg

Browse source
This commit is contained in:
Joey Hess 2010-10-17 12:08:59 -04:00
parent ae4d20d157
commit 76ba2d0030
2 changed files with 11 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Core.hs
View file

@ -10,6 +10,7 @@ import System.Path
import Types
import Locations
import LocationLog
import UUID
import qualified GitRepo as Git
import qualified Annex
@ -94,3 +95,12 @@ calcGitLink file key = do
Nothing -> error $ "unable to normalize " ++ file
return $ (relPathDirToDir (parentDir absfile) (Git.workTree g)) ++
annexLocationRelative g key
{- Updates the LocationLog when a key's presence changes. -}
logStatus :: Key -> LogStatus -> Annex ()
logStatus key status = do
g <- Annex.gitRepo
u <- getUUID g
f <- liftIO $ logChange g key u status
gitAdd f Nothing -- all logs are committed at end