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

move dummy uuids to Annex.UUID

Browse source
This commit is contained in:
Joey Hess 2014-12-17 13:57:52 -04:00
parent 8d1e372a8b
commit 7e422269a6
9 changed files with 16 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Annex/UUID.hs
View file

@ -23,6 +23,8 @@ module Annex.UUID (
storeUUID,
storeUUIDIn,
setUUID,
webUUID,
bitTorrentUUID,
) where
import Common.Annex
@ -98,3 +100,11 @@ setUUID :: Git.Repo -> UUID -> IO Git.Repo
setUUID r u = do
let s = show configkey ++ "=" ++ fromUUID u
Git.Config.store s r
-- Dummy uuid for the whole web. Do not alter.
webUUID :: UUID
webUUID = UUID "00000000-0000-0000-0000-000000000001"
-- Dummy uuid for bittorrent. Do not alter.
bitTorrentUUID :: UUID
bitTorrentUUID = UUID "00000000-0000-0000-0000-000000000002"