summaryrefslogtreecommitdiff
path: root/UUID.hs
blob: e2b624d69caa590eee2b427c67aa9eae97c4e973 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
{- git-annex uuids
 -
 - Each git repository used by git-annex has an annex.uuid setting that
 - uniquely identifies that repository.
 -
 -}

module UUID (
	UUID,
	getUUID,
	prepUUID,
	genUUID
) where

import System.Cmd.Utils
import System.IO
import GitRepo

type UUID = String

configkey="annex.uuid"

{- Generates a UUID. There is a library for this, but it's not packaged,
 - so use the command line tool. -}
genUUID :: IO UUID
genUUID = do
	pOpen ReadFromPipe "uuid" ["-m"] $ \h -> hGetLine h

{- Looks up a repo's UUID -}
getUUID :: GitRepo -> UUID
getUUID repo = gitConfig repo "annex.uuid" ""

{- Make sure that the repo has an annex.uuid setting. -}
prepUUID :: GitRepo -> IO GitRepo
prepUUID repo =
	if ("" == getUUID repo)
		then do
			uuid <- genUUID
			gitRun repo ["config", configkey, uuid]
			-- return new repo with updated config
			gitConfigRead repo
		else return repo