diff options
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 |