blessings: 2 -> 3

1 files changed, 4 insertions, 3 deletions

diff --git a/src/Much/State.hs b/src/Much/State.hs
index c42460e..30716a1 100644
--- a/src/Much/State.hs
+++ b/src/Much/State.hs
@@ -12,6 +12,7 @@ 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))
@@ -24,11 +25,11 @@ 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