From 7dc742185ada3808946122225a21b1e0ebff2adf Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Tue, 30 Dec 2014 14:51:13 +0100
Subject: rewrite Scanner to use Event

---
 test5.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'test5.hs')

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
         ]
 
-- 
cgit v1.2.3