diff --git a/src/Main.hs b/src/Main.hs index 5510d97..798e940 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -147,11 +147,7 @@ getKey = do forkGetChar mvar = do hSetEcho stdin False cs <- (: []) <$> hGetChar stdin - -- cs <- whileM - -- (not <$> hIsEOF stdin) - -- (hGetChar stdin) hSetEcho stdin True - -- putStrLn cs when (not (null cs)) $ do _ <- putMVar mvar (head cs) return ()