summaryrefslogtreecommitdiffstats
path: root/src/Much/Action.hs
diff options
context:
space:
mode:
authortv <tv@krebsco.de>2026-03-19 21:26:09 +0100
committertv <tv@krebsco.de>2026-03-19 22:36:50 +0100
commit131e4f0ccf655095d13b05f69acdaa1c22b9e6d4 (patch)
tree0775bbb5b4d55c13c9f2c9a7a04267a7ed9b45f0 /src/Much/Action.hs
parentf06e531ecfae6b36df10e2861500490f38a82de5 (diff)
default-language: Haskell2010 -> GHC2024
Diffstat (limited to 'src/Much/Action.hs')
-rw-r--r--src/Much/Action.hs13
1 files changed, 7 insertions, 6 deletions
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 }