From 8c288cf1f2747aa9f8cee68cc1b9a35dd02229b8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kier=C3=A1n=20Meinhardt?= <kieran.meinhardt@gmail.com>
Date: Tue, 22 Sep 2020 22:27:10 +0200
Subject: factor out Actions, Core, State from tv config

---
 State.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'State.hs')

diff --git a/State.hs b/State.hs
index 1f2b3d3..917b4c4 100644
--- a/State.hs
+++ b/State.hs
@@ -3,6 +3,7 @@ module State where
 import Blessings.String (Blessings)
 import Data.Time
 import qualified Data.Tree.Zipper as Z
+import Scanner
 import System.Posix.Signals
 import TreeView (TreeView)
 
@@ -17,4 +18,6 @@ data State = State
     , treeBuffer :: [Blessings String]
     , now :: UTCTime
     , signalHandlers :: [(Signal, IO ())]
+    , keymap :: String -> State -> IO State
+    , mousemap :: Scan -> State -> IO State
     }
-- 
cgit v1.2.3