tweak intro

This commit is contained in:
Joey Hess 2012-07-29 22:11:01 -04:00
parent 675ad9fe22
commit 895b068e35
3 changed files with 16 additions and 11 deletions

View file

@ -129,14 +129,19 @@ prettyPrintUUIDs desc uuids = do
, ("here", toJSON $ hereu == u)
]
{- List of remote names and/or descriptions, for human display.
- Omits the current repisitory. -}
{- List of remote names and/or descriptions, for human display. -}
prettyListUUIDs :: [UUID] -> Annex [String]
prettyListUUIDs uuids = do
hereu <- getUUID
m <- uuidDescriptions
return $ map (\u -> M.findWithDefault "" u m) $
filter (/= hereu) uuids
return $ map (\u -> prettify m hereu u) uuids
where
finddescription m u = M.findWithDefault "" u m
prettify m hereu u
| u == hereu = addName n "here"
| otherwise = n
where
n = finddescription m u
{- Filters a list of remotes to ones that have the listed uuids. -}
remotesWithUUID :: [Remote] -> [UUID] -> [Remote]