clean

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 ()