diff options
Diffstat (limited to 'src/Much/State.hs')
| -rw-r--r-- | src/Much/State.hs | 7 |
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 |