This commit is contained in:
nek0 2018-10-26 02:04:41 +02:00
parent b170053f06
commit f4809653ab
1 changed files with 0 additions and 4 deletions

View File

@ -147,11 +147,7 @@ getKey = do
forkGetChar mvar = do forkGetChar mvar = do
hSetEcho stdin False hSetEcho stdin False
cs <- (: []) <$> hGetChar stdin cs <- (: []) <$> hGetChar stdin
-- cs <- whileM
-- (not <$> hIsEOF stdin)
-- (hGetChar stdin)
hSetEcho stdin True hSetEcho stdin True
-- putStrLn cs
when (not (null cs)) $ do when (not (null cs)) $ do
_ <- putMVar mvar (head cs) _ <- putMVar mvar (head cs)
return () return ()