1 files changed, 13 insertions, 11 deletions
diff --git a/src/Much/Action.hs b/src/Much/Action.hs
index d76e503..102bc2c 100644
--- a/src/Much/Action.hs
+++ b/src/Much/Action.hs
@@ -1,29 +1,31 @@
-{-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE RecordWildCards #-}
+
 module Much.Action where
 
-import Blessings.String.WCWidth
+import Blessings (Blessings(SGR))
 import Data.Maybe
+import Data.String (fromString)
 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 }
+displayKey s q = return q { flashMessage = fromString (show s) }
 
 
 displayMouse :: Scan -> State -> IO State
 displayMouse info q =
-    return q { flashMessage = SGR [38,5,202] $ Plain $ show info }
+    return q { flashMessage = SGR [38,5,202] $ fromString (show info) }
 
 defaultMouse1Click :: Monad m => Int -> State -> m State
 defaultMouse1Click y q@State{..} = do
@@ -35,7 +37,7 @@ defaultMouse1Click y q@State{..} = do
     case linearClickPos of
         Nothing ->
             return q
-                { flashMessage = Plain "nothing to click"
+                { flashMessage = "nothing to click"
                 }
         Just i ->
             return q
@@ -162,7 +164,7 @@ openFold q@State{..} =
   where
     handle = \case
         Left err ->
-            q { flashMessage = SGR [31] $ Plain err }
+            q { flashMessage = SGR [31] $ fromString err }
         Right sf ->
             q { cursor = Z.modifyTree (setSubForest sf) cursor }