summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Remote.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/Remote.hs b/Remote.hs
index d1714f775..49fa63cf9 100644
--- a/Remote.hs
+++ b/Remote.hs
@@ -137,6 +137,7 @@ prettyPrintUUIDs desc uuids = do
where
addname d n
| d == n = d
+ | null d = n
| otherwise = n ++ " (" ++ d ++ ")"
remoteMap = M.fromList . map (\r -> (uuid r, name r)) <$> genList
findlog m u = M.findWithDefault "" u m