improve info display for multipart

This commit is contained in:
Joey Hess 2014-11-03 17:24:53 -04:00
parent 2c53f331bd
commit 711b18a6eb

View file

@ -97,7 +97,7 @@ gen r u c gc = do
, if configIA c , if configIA c
then Just ("internet archive item", iaItemUrl $ fromMaybe "unknown" $ getBucketName c) then Just ("internet archive item", iaItemUrl $ fromMaybe "unknown" $ getBucketName c)
else Nothing else Nothing
, Just ("multipart", maybe "disabled" (roughSize storageUnits False) (getPartSize c)) , Just ("partsize", maybe "unlimited" (roughSize storageUnits False) (getPartSize c))
] ]
} }