diff options
Diffstat (limited to 'test5.hs')
-rw-r--r-- | test5.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -20,7 +20,7 @@ import Data.Maybe import Data.Monoid import Data.Time import Event -import Scanner (getKey) +import Scanner (scan) import System.Directory import System.Environment import System.Exit @@ -111,7 +111,7 @@ startup = do ] threadIds <- mapM forkIO - [ forever $ getKey >>= putEvent . EKey + [ forever $ scan stdin >>= putEvent , run getEvent q0 ] |