From fdeb641fde5f82c3ad617c5c801ab40955fe62af Mon Sep 17 00:00:00 2001 From: tv Date: Thu, 19 Mar 2026 22:09:58 +0100 Subject: blessings: 2 -> 3 --- src/Much/State.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'src/Much/State.hs') 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 -- cgit v1.2.3