cleanup Scanner

1 files changed, 2 insertions, 4 deletions

diff --git a/test5.hs b/test5.hs
index 5a682bd..c06f523 100644
--- a/test5.hs
+++ b/test5.hs
@@ -17,7 +17,7 @@ import Control.Exception
 import Control.Monad
 import Data.Maybe
 import Data.Monoid
-import Scanner (scan, runScanner, toChar)
+import Scanner (getKey)
 import System.Directory
 import System.Environment
 import System.Exit
@@ -136,9 +136,7 @@ winchHandler putEvent =
 inputHandler :: (Event -> IO ()) -> IO ()
 inputHandler putEvent = forever $ do
     -- TODO make stdin configurable
-    _ <- hLookAhead stdin
-    ((_, s), _) <- runScanner scan
-    putEvent $ EKey $ map toChar s
+    getKey >>= putEvent . EKey
 
 
 run :: IO Event -> State -> IO ()