tweak intro
This commit is contained in:
parent
675ad9fe22
commit
895b068e35
3 changed files with 16 additions and 11 deletions
13
Remote.hs
13
Remote.hs
|
@ -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]
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue