summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authortv <tv@shackspace.de>2014-12-28 21:18:11 +0100
committertv <tv@shackspace.de>2014-12-28 21:18:11 +0100
commit471e376a3d4a0257a2f27fa067fcb4f707cc7e6d (patch)
treeed0e072b5fbf0eb047b07315fc7dff572c53f55a
parent7ade7aa2138b410d289e159408795ea74febf137 (diff)
add empty line between mail header and body
-rw-r--r--TreeView.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/TreeView.hs b/TreeView.hs
index 8a3aebb..ed91ce8 100644
--- a/TreeView.hs
+++ b/TreeView.hs
@@ -145,7 +145,7 @@ xconvPartContent
:: Message -> MessagePart -> MessageContent -> Forest TreeView
xconvPartContent m p = \case
ContentText t ->
- map (xconvLine m p) $ zip [0..] (T.lines t)
+ map (xconvLine m p) (zip [0..] ("" : T.lines t))
ContentMultipart parts ->
map (xconvPart2 m) parts
-- [Node (TVMessageLine m p 0 "ContentMultipart") []]