add remotes slot to Annex
This required parameterizing the type for Remote, to avoid a cycle.
This commit is contained in:
parent
b40f253d6e
commit
f30320aa75
7 changed files with 41 additions and 46 deletions
4
UUID.hs
4
UUID.hs
|
@ -36,7 +36,7 @@ import qualified SysConfig
|
|||
type UUID = String
|
||||
|
||||
configkey :: String
|
||||
configkey="annex.uuid"
|
||||
configkey = "annex.uuid"
|
||||
|
||||
{- Generates a UUID. There is a library for this, but it's not packaged,
|
||||
- so use the command line tool. -}
|
||||
|
@ -74,7 +74,7 @@ getUUID r = do
|
|||
cachekey = "remote." ++ fromMaybe "" (Git.repoRemoteName r) ++ ".annex-uuid"
|
||||
|
||||
getUncachedUUID :: Git.Repo -> UUID
|
||||
getUncachedUUID r = Git.configGet r "annex.uuid" ""
|
||||
getUncachedUUID r = Git.configGet r configkey ""
|
||||
|
||||
{- Make sure that the repo has an annex.uuid setting. -}
|
||||
prepUUID :: Annex ()
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue