diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-10-26 14:55:40 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-10-26 14:55:40 -0400 |
| commit | 5de4482c1b52ead223bc380b45fcc421e25a80a4 (patch) | |
| tree | 075091a3b866e28c906a3f7d44d20b2a4fcddd33 /Command/Info.hs | |
| parent | 6580aa68ca335e66daab9a9c2b7f91ad6f9bd2cb (diff) | |
enableremote: List uuids and descriptions of remotes that can be enabled, and accept either the uuid or the description in leu if the name.
Diffstat (limited to 'Command/Info.hs')
| -rw-r--r-- | Command/Info.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Command/Info.hs b/Command/Info.hs index 25a537e8d..d22c23c04 100644 --- a/Command/Info.hs +++ b/Command/Info.hs @@ -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 |