diff options
author | tv <tv@shackspace.de> | 2015-01-07 04:45:05 +0100 |
---|---|---|
committer | tv <tv@shackspace.de> | 2015-01-07 04:45:05 +0100 |
commit | 893720cd7111828b65c66e0051c4c91e4405a740 (patch) | |
tree | f0255e25247adadafa2a025d556508f1800915fd /RenderTreeView.hs | |
parent | 8197ab250f92ec92e01776d96b14c53ffd84190b (diff) |
show part content size
Diffstat (limited to 'RenderTreeView.hs')
-rw-r--r-- | RenderTreeView.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/RenderTreeView.hs b/RenderTreeView.hs index 5d1a9bf..155cf52 100644 --- a/RenderTreeView.hs +++ b/RenderTreeView.hs @@ -170,7 +170,8 @@ renderTreeView1 now hasFocus x = case x of t = Plain $ T.unpack $ CI.original $ Notmuch.partContentType p filename = maybe "" (Plain . (" "<>) . show) $ Notmuch.partContentFilename p charset = maybe "" (Plain . (" "<>) . show) $ Notmuch.partContentCharset p - in c $ "part#" <> i <> " " <> t <> filename <> charset + size = Plain $ show $ Notmuch.contentSize (Notmuch.partContent p) + in c $ "part#" <> i <> " " <> t <> filename <> charset <> " " <> size TVMessageQuoteLine _ _ _ s -> if hasFocus |