From f4809653ab5d814d42ac5ff4daee84cd634be7b3 Mon Sep 17 00:00:00 2001 From: nek0 Date: Fri, 26 Oct 2018 02:04:41 +0200 Subject: [PATCH] clean --- src/Main.hs | 4 ---- 1 file changed, 4 deletions(-) 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 ()