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

map: Fix a failure to detect a loop when both repositories are local and refer to each other with relative paths.

Browse source
This commit is contained in:
Joey Hess 2011-12-04 12:23:10 -04:00
parent 58567045b7
commit b6c8a0119a
2 changed files with 12 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Command/Map.hs
View file

@ -138,15 +138,16 @@ spider' (r:rs) known
-- The remotes will be relative to r', and need to be
-- made absolute for later use.
let remotes = map (absRepo r') (Git.remotes r')
remotes <- mapM (absRepo r') (Git.remotes r')
let r'' = Git.remotesAdd r' remotes
spider' (rs ++ remotes) (r'':known)
absRepo :: Git.Repo -> Git.Repo -> Git.Repo
{- Converts repos to a common absolute form. -}
absRepo :: Git.Repo -> Git.Repo -> Annex Git.Repo
absRepo reference r
| Git.repoIsUrl reference = Git.localToUrl reference r
| otherwise = r
| Git.repoIsUrl reference = return $ Git.localToUrl reference r
| otherwise = liftIO $ Git.repoFromAbsPath =<< absPath (Git.workTree r)
{- Checks if two repos are the same. -}
same :: Git.Repo -> Git.Repo -> Bool