From 8d5e610b4caee7cb184294ca22f527f9f6934b82 Mon Sep 17 00:00:00 2001 From: tv Date: Tue, 14 May 2019 22:51:18 +0200 Subject: Much.API: init --- src/Much/Event.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/Much/Event.hs') diff --git a/src/Much/Event.hs b/src/Much/Event.hs index 9842327..5edb5d2 100644 --- a/src/Much/Event.hs +++ b/src/Much/Event.hs @@ -1,6 +1,7 @@ module Much.Event where import Blessings +import Much.State import Scanner data Event = @@ -8,5 +9,6 @@ data Event = EScan Scan | EShutdown | EReload | - EResize Int Int + EResize Int Int | + EStateGet (State -> IO ()) deriving Show -- cgit v1.2.3