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

correctness

Browse source
This commit is contained in:
Joey Hess 2010-10-12 13:12:47 -04:00
parent dc1d5e6831
commit 4fbdb197d5
3 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

6
UUID.hs
View file

@ -23,14 +23,16 @@ genUUID :: IO String
genUUID = do
pOpen ReadFromPipe "uuid" ["-m"] $ \h -> hGetLine h
{- Looks up a repo's UUID -}
getUUID :: GitRepo -> String
getUUID repo = gitConfig repo "annex.uuid" ""
{- Make sure that the repo has an annex.uuid setting. -}
prepUUID :: GitRepo -> IO ()
prepUUID :: GitRepo -> IO GitRepo
prepUUID repo =
if ("" == getUUID repo)
then do
uuid <- genUUID
gitRun repo ["config", configkey, uuid]
else return ()
gitConfigRead repo -- return new repo with updated config
else return repo