use gitRepo

This commit is contained in:
Joey Hess 2012-10-12 01:17:45 -04:00
parent a7642b3b6e
commit 549c779a38
7 changed files with 10 additions and 10 deletions

View file

@ -90,10 +90,10 @@ makeGitRemote basename location = makeRemote basename location $ \name ->
- Returns the name of the remote. -}
makeRemote :: String -> String -> (String -> Annex ()) -> Annex String
makeRemote basename location a = do
r <- fromRepo id
if not (any samelocation $ Git.remotes r)
g <- gitRepo
if not (any samelocation $ Git.remotes g)
then do
let name = uniqueRemoteName basename 0 r
let name = uniqueRemoteName basename 0 g
a name
return name
else return basename