test5: inline scanner thread

1 files changed, 1 insertions, 7 deletions

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 =<<