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

map bugfix

Browse source 
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.
This commit is contained in:
Joey Hess 2011-02-08 17:46:52 -04:00
parent d50da60c26
commit 97d5e23430
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Command/Map.hs
View file

@ -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. -} {- 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 :: (M.Map UUID String) -> [Git.Repo] -> Git.Repo -> Git.Repo -> String
edge umap fullinfo from to = edge umap fullinfo from to =
Dot.graphEdge (nodeId from) (nodeId $ absRepo from fullto) edgename Dot.graphEdge (nodeId from) (nodeId fullto) edgename
where where
-- get the full info for the remote, to get its UUID -- get the full info for the remote, to get its UUID
fullto = findfullinfo to fullto = findfullinfo (absRepo from to)
findfullinfo n = findfullinfo n =
case (filter (same n) fullinfo) of case (filter (same n) fullinfo) of
[] -> n [] -> n