1 files changed, 13 insertions, 12 deletions
diff --git a/src/Much/State.hs b/src/Much/State.hs
index a1de01f..30716a1 100644
--- a/src/Much/State.hs
+++ b/src/Much/State.hs
@@ -1,34 +1,35 @@
-{-# LANGUAGE FlexibleInstances #-}
-{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE OverloadedStrings #-}
+
 module Much.State where
 
 import Blessings
 import Data.Aeson
+import Data.CaseInsensitive qualified as CI
 import Data.Default
 import Data.Functor.Identity
+import Data.Map qualified as M
+import Data.Text qualified as T
 import Data.Time
+import Data.Tree qualified as Tree
+import Data.Tree.Zipper qualified as Z
+import Data.WText (WText)
 import GHC.Generics
+import Much.API.Config qualified
 import Much.TreeView (TreeView(TVSearch))
+import Notmuch.Message qualified as Notmuch
 import Scanner
 import System.Posix.Signals
-import qualified Data.CaseInsensitive as CI
-import qualified Data.Map as M
-import qualified Data.Text as T
-import qualified Data.Tree as Tree
-import qualified Data.Tree.Zipper as Z
-import qualified Much.API.Config
-import qualified Notmuch.Message as Notmuch
+
 
 data State = State
     { cursor :: Z.TreePos Z.Full TreeView
     , xoffset :: Int
     , yoffset :: Int
-    , flashMessage :: Blessings String
+    , flashMessage :: Blessings WText
     , screenWidth :: Int
     , screenHeight :: Int
-    , headBuffer :: [Blessings String]
-    , treeBuffer :: [Blessings String]
+    , headBuffer :: [Blessings WText]
+    , treeBuffer :: [Blessings WText]
     , now :: UTCTime
     , signalHandlers :: [(Signal, IO ())]
     , query :: String