From 131e4f0ccf655095d13b05f69acdaa1c22b9e6d4 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Thu, 19 Mar 2026 21:26:09 +0100
Subject: default-language: Haskell2010 -> GHC2024

---
 src/Much/RenderTreeView.hs | 19 +++++++++----------
 1 file changed, 9 insertions(+), 10 deletions(-)

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

diff --git a/src/Much/RenderTreeView.hs b/src/Much/RenderTreeView.hs
index ea81fe2..21af597 100644
--- a/src/Much/RenderTreeView.hs
+++ b/src/Much/RenderTreeView.hs
@@ -1,30 +1,29 @@
-{-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE RecordWildCards #-}
 
 module Much.RenderTreeView (renderTreeView) where
 
-import qualified Notmuch.Message as Notmuch
-import qualified Notmuch.SearchResult as Notmuch
-import qualified Data.CaseInsensitive as CI
-import qualified Data.List as L
-import qualified Data.Map as M
-import qualified Data.Text as T
-import qualified Data.Tree.Zipper as Z
-import qualified Much.TreeZipperUtils as Z
 import Blessings
 import Blessings.String.Extra (quoteSpecials)
 import Control.Arrow
+import Data.CaseInsensitive qualified as CI
 import Data.Char
-import Data.Function
 import Data.Functor.Identity
+import Data.List qualified as L
+import Data.Map qualified as M
 import Data.Maybe
+import Data.Text qualified as T
 import Data.Time
 import Data.Time.Format.Human
 import Data.Tree
+import Data.Tree.Zipper qualified as Z
 import Much.State
 import Much.TagUtils (Tag)
 import Much.TreeView
+import Much.TreeZipperUtils qualified as Z
+import Notmuch.Message qualified as Notmuch
+import Notmuch.SearchResult qualified as Notmuch
+
 
 color :: (ColorConfig Identity -> Identity Pm) -> ColorConfig Identity -> Blessings String -> Blessings String
 color key config = SGR $ runIdentity $ key config
-- 
cgit v1.2.3