diff options
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/Map.hs | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/Command/Map.hs b/Command/Map.hs index 1b15e34f6..05c03feaf 100644 --- a/Command/Map.hs +++ b/Command/Map.hs @@ -110,7 +110,7 @@ edge umap fullinfo from to = Dot.graphEdge (nodeId from) (nodeId fullto) edgename where -- get the full info for the remote, to get its UUID - fullto = findfullinfo (absRepo from to) + fullto = findfullinfo to findfullinfo n = case (filter (same n) fullinfo) of [] -> n @@ -140,8 +140,13 @@ spider' (r:rs) known | any (same r) known = spider' rs known | otherwise = do r' <- scan r + + -- The remotes will be relative to r', and need to be + -- made absolute for later use. let remotes = map (absRepo r') (Git.remotes r') - spider' (rs ++ remotes) (r':known) + let r'' = Git.remotesAdd r' remotes + + spider' (rs ++ remotes) (r'':known) absRepo :: Git.Repo -> Git.Repo -> Git.Repo absRepo reference r |