diff options
author | tv <tv@krebsco.de> | 2019-05-14 21:02:21 +0200 |
---|---|---|
committer | tv <tv@krebsco.de> | 2019-05-14 21:02:21 +0200 |
commit | fa3e4365193857ecf78138d6e7aee55f38a61baa (patch) | |
tree | 8b85494bc27f5150d0d132eec645a1df603e0b83 /State.hs | |
parent | 8fc4fbb5bb7781626da8f63cd8df8bb0f554cfe7 (diff) |
test5: move State to separate module
Diffstat (limited to 'State.hs')
-rw-r--r-- | State.hs | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/State.hs b/State.hs new file mode 100644 index 0000000..1f2b3d3 --- /dev/null +++ b/State.hs @@ -0,0 +1,20 @@ +module State where + +import Blessings.String (Blessings) +import Data.Time +import qualified Data.Tree.Zipper as Z +import System.Posix.Signals +import TreeView (TreeView) + +data State = State + { cursor :: Z.TreePos Z.Full TreeView + , xoffset :: Int + , yoffset :: Int + , flashMessage :: Blessings String + , screenWidth :: Int + , screenHeight :: Int + , headBuffer :: [Blessings String] + , treeBuffer :: [Blessings String] + , now :: UTCTime + , signalHandlers :: [(Signal, IO ())] + } |