diff --git a/Annex/UUID.hs b/Annex/UUID.hs index 5ed8876891..ec642a0fe4 100644 --- a/Annex/UUID.hs +++ b/Annex/UUID.hs @@ -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" diff --git a/Assistant/Upgrade.hs b/Assistant/Upgrade.hs index c92cc30f64..51d48c610e 100644 --- a/Assistant/Upgrade.hs +++ b/Assistant/Upgrade.hs @@ -21,6 +21,7 @@ import Logs.Web import Logs.Presence import Logs.Location import Annex.Content +import Annex.UUID import qualified Backend import qualified Types.Backend import qualified Types.Key diff --git a/Assistant/WebApp/Configurators/Edit.hs b/Assistant/WebApp/Configurators/Edit.hs index 5b5b1c6d1e..922b9708bf 100644 --- a/Assistant/WebApp/Configurators/Edit.hs +++ b/Assistant/WebApp/Configurators/Edit.hs @@ -42,7 +42,6 @@ import Utility.Gpg import Annex.UUID import Assistant.Ssh import Config -import Logs.Web (webUUID) import qualified Data.Text as T import qualified Data.Map as M diff --git a/Command/AddUrl.hs b/Command/AddUrl.hs index 8688c8a572..1833cc2a74 100644 --- a/Command/AddUrl.hs +++ b/Command/AddUrl.hs @@ -22,6 +22,7 @@ import qualified Backend.URL import qualified Remote import qualified Types.Remote as Remote import Annex.Content +import Annex.UUID import Logs.Web import Types.Key import Types.KeySource diff --git a/Command/ImportFeed.hs b/Command/ImportFeed.hs index d827d549fc..c45fad9612 100644 --- a/Command/ImportFeed.hs +++ b/Command/ImportFeed.hs @@ -30,6 +30,7 @@ import qualified Utility.Format import Utility.Tmp import Command.AddUrl (addUrlFile, downloadRemoteFile, relaxedOption) import Annex.Perms +import Annex.UUID import Backend.URL (fromUrl) #ifdef WITH_QUVI import Annex.Quvi diff --git a/Command/RmUrl.hs b/Command/RmUrl.hs index 5700042665..514dcc6891 100644 --- a/Command/RmUrl.hs +++ b/Command/RmUrl.hs @@ -10,6 +10,7 @@ module Command.RmUrl where import Common.Annex import Command import Logs.Web +import Annex.UUID import qualified Remote cmd :: [Command] diff --git a/Logs/Web.hs b/Logs/Web.hs index c3e5c34329..a728d152ba 100644 --- a/Logs/Web.hs +++ b/Logs/Web.hs @@ -7,7 +7,6 @@ module Logs.Web ( URLString, - webUUID, getUrls, getUrlsWithPrefix, setUrlPresent, @@ -35,10 +34,6 @@ import qualified Git import qualified Git.LsFiles import Utility.Url --- Dummy uuid for the whole web. Do not alter. -webUUID :: UUID -webUUID = UUID "00000000-0000-0000-0000-000000000001" - {- Gets all urls that a key might be available from. -} getUrls :: Key -> Annex [URLString] getUrls key = do diff --git a/Remote/BitTorrent.hs b/Remote/BitTorrent.hs index 1f616f6589..1e90717f5e 100644 --- a/Remote/BitTorrent.hs +++ b/Remote/BitTorrent.hs @@ -23,15 +23,12 @@ import Utility.Metered import Utility.Tmp import Backend.URL import Annex.Perms +import Annex.UUID import qualified Annex.Url as Url import qualified Data.Map as M import Network.URI --- Dummy uuid for bittorrent. Do not alter. -bitTorrentUUID :: UUID -bitTorrentUUID = UUID "00000000-0000-0000-0000-000000000002" - remote :: RemoteType remote = RemoteType { typename = "bittorrent", diff --git a/Remote/Web.hs b/Remote/Web.hs index 7d6cd29383..594f90b974 100644 --- a/Remote/Web.hs +++ b/Remote/Web.hs @@ -16,6 +16,7 @@ import qualified Git.Construct import Annex.Content import Config.Cost import Logs.Web +import Annex.UUID import Types.Key import Utility.Metered import qualified Annex.Url as Url