aboutsummaryrefslogtreecommitdiff
path: root/Remote.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-10-27 12:58:01 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-10-27 14:55:06 -0400
commitb3e660504fce7ed0eab48b4e7deeeb9503318986 (patch)
treec3dc9248b676bba2b5669007125d943983ad71fb /Remote.hs
parent48d39dd35492952ac7f20da08a4168f43f782c95 (diff)
avoid showing parens for empty descriptions
Diffstat (limited to 'Remote.hs')
-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