From 97d5e23430748487d9b6dea842cdba4e66ba39d9 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 8 Feb 2011 17:46:52 -0400 Subject: [PATCH] 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. --- Command/Map.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Command/Map.hs b/Command/Map.hs index d8dd0e94cf..1b15e34f6a 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