diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-02-08 17:46:52 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-02-08 17:46:52 -0400 |
| commit | 97d5e23430748487d9b6dea842cdba4e66ba39d9 (patch) | |
| tree | 89a2a713ed3956a2b0f14417f72145ff270d307f | |
| parent | d50da60c26b39c47f4bbd516b5aa5d6443ed4198 (diff) | |
map bugfix
Need to find the absolute repo path before looking up the full info for the
repo. Otherwise, it doesn't find the right full info.
| -rw-r--r-- | Command/Map.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Map.hs b/Command/Map.hs index d8dd0e94c..1b15e34f6 100644 --- a/Command/Map.hs +++ b/Command/Map.hs @@ -107,10 +107,10 @@ node umap fullinfo r = unlines $ n:edges {- An edge between two repos. The second repo is a remote of the first. -} edge :: (M.Map UUID String) -> [Git.Repo] -> Git.Repo -> Git.Repo -> String edge umap fullinfo from to = - Dot.graphEdge (nodeId from) (nodeId $ absRepo from fullto) edgename + Dot.graphEdge (nodeId from) (nodeId fullto) edgename where -- get the full info for the remote, to get its UUID - fullto = findfullinfo to + fullto = findfullinfo (absRepo from to) findfullinfo n = case (filter (same n) fullinfo) of [] -> n |