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

avoid showing parens for empty descriptions

Browse source
This commit is contained in:
Joey Hess 2011-10-27 12:58:01 -04:00
parent 48d39dd354
commit b3e660504f
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Remote.hs
View file

@ -137,6 +137,7 @@ prettyPrintUUIDs desc uuids = do
where where
addname d n addname d n
| d == n = d | d == n = d
| null d = n
| otherwise = n ++ " (" ++ d ++ ")" | otherwise = n ++ " (" ++ d ++ ")"
remoteMap = M.fromList . map (\r -> (uuid r, name r)) <$> genList remoteMap = M.fromList . map (\r -> (uuid r, name r)) <$> genList
findlog m u = M.findWithDefault "" u m findlog m u = M.findWithDefault "" u m