diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-10-12 01:17:45 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-10-12 01:17:45 -0400 |
| commit | 98d458727dee6c93ee4d672366449fcadd8a376d (patch) | |
| tree | 7d4620c43a2797ffdfc8c668a185f9a08640d7a0 /Assistant/MakeRemote.hs | |
| parent | b40a3410ac24693999b894d6154de3ea2a7ae804 (diff) | |
use gitRepo
Diffstat (limited to 'Assistant/MakeRemote.hs')
| -rw-r--r-- | Assistant/MakeRemote.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Assistant/MakeRemote.hs b/Assistant/MakeRemote.hs index cce2da0af..eec383272 100644 --- a/Assistant/MakeRemote.hs +++ b/Assistant/MakeRemote.hs @@ -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 |