-------------------------------------------------------------------------------- -- Nonbuffering getChar -- 2017 Francesco Ariis GPLv3 80cols -------------------------------------------------------------------------------- module Terminal.Game.Utils ( inputCharTerminal, isWin32Console ) where inputCharTerminal :: IO Char inputCharTerminal :: IO Char inputCharTerminal = IO Char getChar isWin32Console :: IO Bool isWin32Console :: IO Bool isWin32Console = Bool -> IO Bool forall (m :: * -> *) a. Monad m => a -> m a return Bool False