From 618c6b5e2237e4c1e537e83a7f9d9672fca1f217 Mon Sep 17 00:00:00 2001 From: tv Date: Mon, 29 Dec 2014 02:13:42 +0100 Subject: Revert "add empty line between mail header and body" This reverts commit 471e376a3d4a0257a2f27fa067fcb4f707cc7e6d. --- TreeView.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'TreeView.hs') diff --git a/TreeView.hs b/TreeView.hs index d1b0c95..4edf9b3 100644 --- a/TreeView.hs +++ b/TreeView.hs @@ -111,7 +111,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