From 8b1a855a0b6f122e8f9e372bdcaaa8abacddb079 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Sun, 28 Dec 2014 22:54:14 +0100
Subject: test5: inline scanner thread

---
 test5.hs | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

(limited to 'test5.hs')

diff --git a/test5.hs b/test5.hs
index c06f523..a65b719 100644
--- a/test5.hs
+++ b/test5.hs
@@ -114,7 +114,7 @@ startup = do
         ]
 
     threadIds <- mapM forkIO
-        [ inputHandler putEvent
+        [ forever $ getKey >>= putEvent . EKey
         , run getEvent q0
         ]
 
@@ -133,12 +133,6 @@ winchHandler putEvent =
             return ()
 
 
-inputHandler :: (Event -> IO ()) -> IO ()
-inputHandler putEvent = forever $ do
-    -- TODO make stdin configurable
-    getKey >>= putEvent . EKey
-
-
 run :: IO Event -> State -> IO ()
 run getEvent = rec where
     rec q = rec =<<
-- 
cgit v1.2.3