From 131e4f0ccf655095d13b05f69acdaa1c22b9e6d4 Mon Sep 17 00:00:00 2001 From: tv Date: Thu, 19 Mar 2026 21:26:09 +0100 Subject: default-language: Haskell2010 -> GHC2024 --- src/Much/Action.hs | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'src/Much/Action.hs') diff --git a/src/Much/Action.hs b/src/Much/Action.hs index d76e503..e798357 100644 --- a/src/Much/Action.hs +++ b/src/Much/Action.hs @@ -1,21 +1,22 @@ -{-# LANGUAGE LambdaCase #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} + module Much.Action where import Blessings.String.WCWidth import Data.Maybe import Data.Tree.Extra (setSubForest) -import Scanner +import Data.Tree.Zipper qualified as Z import Much.State import Much.TagUtils import Much.TreeSearch import Much.TreeView import Much.TreeZipperUtils -import qualified Data.Tree.Zipper as Z -import qualified Notmuch -import qualified Notmuch.Message as Notmuch -import qualified Notmuch.SearchResult as Notmuch +import Notmuch qualified +import Notmuch.Message qualified as Notmuch +import Notmuch.SearchResult qualified as Notmuch +import Scanner + displayKey :: String -> State -> IO State displayKey s q = return q { flashMessage = Plain $ show s } -- cgit v1.2.3