factor out Actions, Core, State from tv config

1 files changed, 3 insertions, 0 deletions

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
     }