diff options
| author | tv <tv@krebsco.de> | 2026-03-19 21:26:09 +0100 |
|---|---|---|
| committer | tv <tv@krebsco.de> | 2026-03-19 22:36:50 +0100 |
| commit | 131e4f0ccf655095d13b05f69acdaa1c22b9e6d4 (patch) | |
| tree | 0775bbb5b4d55c13c9f2c9a7a04267a7ed9b45f0 /src/Much/Action.hs | |
| parent | f06e531ecfae6b36df10e2861500490f38a82de5 (diff) | |
default-language: Haskell2010 -> GHC2024
Diffstat (limited to 'src/Much/Action.hs')
| -rw-r--r-- | src/Much/Action.hs | 13 |
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 } |
