summaryrefslogtreecommitdiffstats
path: root/src/Much/Action.hs
diff options
context:
space:
mode:
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 }