diff options
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 } |
