rewrite Scanner to use Event

1 files changed, 2 insertions, 2 deletions

diff --git a/test5.hs b/test5.hs
index fa3f4bb..5448470 100644
--- a/test5.hs
+++ b/test5.hs
@@ -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
         ]