enableremote: List uuids and descriptions of remotes that can be enabled, and accept either the uuid or the description in leu if the name.
This commit is contained in:
parent
016904f424
commit
640dba43b6
7 changed files with 75 additions and 25 deletions
|
@ -427,8 +427,9 @@ reposizes_stats = stat desc $ nojson $ do
|
|||
. M.toList
|
||||
<$> cachedRepoData
|
||||
let maxlen = maximum (map (length . snd) l)
|
||||
descm <- lift uuidDescriptions
|
||||
-- This also handles json display.
|
||||
s <- lift $ prettyPrintUUIDsWith (Just "size") desc $
|
||||
s <- lift $ prettyPrintUUIDsWith (Just "size") desc descm $
|
||||
map (\(u, sz) -> (u, Just $ mkdisp sz maxlen)) l
|
||||
return $ countRepoList (length l) s
|
||||
where
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue