summaryrefslogtreecommitdiff
path: root/Command/Map.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-02-08 17:46:52 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-02-08 17:46:52 -0400
commit97d5e23430748487d9b6dea842cdba4e66ba39d9 (patch)
tree89a2a713ed3956a2b0f14417f72145ff270d307f /Command/Map.hs
parentd50da60c26b39c47f4bbd516b5aa5d6443ed4198 (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.
Diffstat (limited to 'Command/Map.hs')
-rw-r--r--Command/Map.hs4
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