From 8d5e610b4caee7cb184294ca22f527f9f6934b82 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Tue, 14 May 2019 22:51:18 +0200
Subject: Much.API: init

---
 src/Much/Core.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/Much/Core.hs')

diff --git a/src/Much/Core.hs b/src/Much/Core.hs
index 353f248..e6dec8a 100644
--- a/src/Much/Core.hs
+++ b/src/Much/Core.hs
@@ -5,9 +5,11 @@
 module Much.Core where
 
 import Much.Action
+import Much.API
 import Blessings.String (Blessings(Plain,SGR),pp)
 import Control.Concurrent
 import Control.Monad
+import Data.Functor
 import Data.Time
 import Much.Event
 import Much.RenderTreeView (renderTreeView)
@@ -123,6 +125,7 @@ runState q0 = do
 
     threadIds <- mapM forkIO
         [ forever $ scan stdin >>= putEvent . EScan
+        , Much.API.main putEvent
         ]
 
     winchHandler putEvent
@@ -173,6 +176,8 @@ processEvent q = \case
             { screenWidth = w, screenHeight = h
             , flashMessage = Plain $ "resize " <> show (w,h)
             }
+    EStateGet f ->
+        forkIO (f q) $> Right q
     ev ->
         return $ Right q
             { flashMessage = SGR [31,1] $ Plain $ "unhandled event: " <> show ev
-- 
cgit v1.2.3