aboutsummaryrefslogtreecommitdiff
path: root/Command/Info.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2016-01-15 14:16:48 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2016-01-15 14:16:48 -0400
commit38d5ad051eb93c5b939755587a720a6f6ca7ef4e (patch)
treead7c23abee2d40b33ebd4c66d671dfba6a097b26 /Command/Info.hs
parent349117d6b4744ba7125841933fe9c2ea78515927 (diff)
whereis --json: Urls are now listed inside the remote that claims them, rather than all together at the end.
Diffstat (limited to 'Command/Info.hs')
-rw-r--r--Command/Info.hs2
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