summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--test5.hs8
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 =<<