From 74a1f3986dcd5e87a11a4108297a36954d179a62 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Thu, 2 Apr 2026 03:31:02 +0200
Subject: findFirsts -> findTopmost

---
 src/Much/TreeView.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/src/Much/TreeView.hs b/src/Much/TreeView.hs
index 2b3c8f2..02ccde0 100644
--- a/src/Much/TreeView.hs
+++ b/src/Much/TreeView.hs
@@ -142,7 +142,7 @@ loadSubForest = \case
             . map unloadReadSubForests
             . concatMap subForest
             . fromMessageForest
-            . findFirsts messageMatch
+            . findTopmost messageMatch
             <$> notmuchShow (termFromMessage m)
 
     TVMessagePart m mp@MessagePart{partContentType="text/html"} ->
@@ -245,8 +245,8 @@ unloadPartsWithFilename =
         in x' { subForest = map rewriteTree $ subForest x' }
 
 
-findFirsts :: (a -> Bool) -> Forest a -> Forest a
-findFirsts p =
+findTopmost :: (a -> Bool) -> Forest a -> Forest a
+findTopmost p =
     concatMap rec
   where
     rec t@Node{..} =
-- 
cgit v1.2.3