diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-11-04 14:14:44 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-11-04 14:14:44 -0400 |
| commit | 2e808304f546536277adf7611e19a0c4f7108dfe (patch) | |
| tree | 9b23102ee03bc9ad84d72b265607b5ce86fd2b0c /Command/Map.hs | |
| parent | bc71810c8e270d938c73fbe2b3a53808803fa417 (diff) | |
map: Work when there are gcrypt remotes.
Diffstat (limited to 'Command/Map.hs')
| -rw-r--r-- | Command/Map.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Map.hs b/Command/Map.hs index 41beb4b92..91f4a0251 100644 --- a/Command/Map.hs +++ b/Command/Map.hs @@ -74,7 +74,7 @@ drawMap rs umap ts = Dot.graph $ repos ++ trusted ++ others hostname :: Git.Repo -> String hostname r - | Git.repoIsUrl r = Git.Url.host r + | Git.repoIsUrl r = fromMaybe (Git.repoLocation r) (Git.Url.host r) | otherwise = "localhost" basehostname :: Git.Repo -> String |