diff options
Diffstat (limited to 'Command/Info.hs')
-rw-r--r-- | Command/Info.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/Info.hs b/Command/Info.hs index cb55602a6..8816ecbcf 100644 --- a/Command/Info.hs +++ b/Command/Info.hs @@ -425,7 +425,7 @@ reposizes_stats = stat desc $ nojson $ do let maxlen = maximum (map (length . snd) l) descm <- lift uuidDescriptions -- This also handles json display. - s <- lift $ prettyPrintUUIDsWith (Just "size") desc descm $ + s <- lift $ prettyPrintUUIDsWith (Just "size") desc descm (Just . show) $ map (\(u, sz) -> (u, Just $ mkdisp sz maxlen)) l return $ countRepoList (length l) s where |