From 471e376a3d4a0257a2f27fa067fcb4f707cc7e6d Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Sun, 28 Dec 2014 21:18:11 +0100
Subject: add empty line between mail header and body

---
 TreeView.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'TreeView.hs')

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") []]
-- 
cgit v1.2.3