nek0/raycharles
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

clean

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Main.hs
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 ()