default-language: Haskell2010 -> GHC2024

1 files changed, 9 insertions, 10 deletions

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