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

less space

Browse source
This commit is contained in:
Joey Hess 2011-09-30 16:21:28 -04:00
parent 29032cb70e
commit 1e6b7e901d
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Remote.hs
View file

@ -146,7 +146,7 @@ prettyPrintUUIDs desc uuids = do
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
prettify m here u prettify m here u
| not (null d) = u ++ " -- " ++ d | not (null d) = u ++ " -- " ++ d
| otherwise = u | otherwise = u
where where
ishere = here == u ishere = here == u