From 908fcce37e601b0c07f10a61439546bf0af57814 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Wed, 1 Apr 2026 17:19:25 +0200
Subject: notmuch show message body is a singleton list

https://github.com/notmuch/notmuch/blob/a691d54/notmuch-show.c#L692-L695
---
 src/Much/TreeView.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Much/TreeView.hs')

diff --git a/src/Much/TreeView.hs b/src/Much/TreeView.hs
index eb2263c..09eca5b 100644
--- a/src/Much/TreeView.hs
+++ b/src/Much/TreeView.hs
@@ -85,7 +85,8 @@ xconvHead m =
 
 
 xconvBody :: Message -> Forest TreeView
-xconvBody m = map (xconvPart m) (messageBody m)
+xconvBody m =
+    [xconvPart m (messageBody m)]
 
 
 xconvPart :: Message -> MessagePart -> Tree TreeView
-- 
cgit v1.2.3