Windows环境下hSetBuffering stdin NoBuffering不生效问题咨询

你遇到的现象是因为终端TTY的默认行缓冲规则优先级高于Haskell的Handle缓冲设置：默认情况下终端运行在 canonical 模式（规范模式）下，会拦截所有输入直到检测到换行符，才会把整行内容提交给上层程序，所以哪怕你把stdin的缓冲设为NoBuffering，程序依然拿不到实时输入的字符。
你之前了解的调用外部stty等命令的方案本质就是修改终端模式，但启动外部子进程会带来额外开销和阻塞风险，以下是直接调用系统原生API的无额外依赖方案，不会引入额外线程阻塞。

POSIX 平台（Linux/macOS） #

直接使用base自带的System.Posix.Terminal模块修改终端属性，用完记得还原，避免终端后续输入异常：

import System.IO
import System.Posix.Terminal
import System.Posix.IO (stdInput)
import Control.Exception (finally)

main :: IO ()
main = do
  -- 保存原始终端属性
  oldAttr <- getTerminalAttributes stdInput
  -- 修改属性：关闭规范模式、关闭回显（可选，按需保留）、禁止输入换行转换
  let newAttr = oldAttr `withoutMode` CanonicalMode
                         `withoutMode` Echo
                         `withoutMode` EnableEcho
                         `withoutMode` InputCRLF
  -- 立即应用新属性
  setTerminalAttributes stdInput newAttr Immediately
  -- 设置Haskell侧无缓冲
  hSetBuffering stdin NoBuffering

  -- 业务逻辑用finally包裹，保证异常退出时也能恢复终端属性
  flip finally (setTerminalAttributes stdInput oldAttr Immediately) $ do
    c <- getChar
    print c
    -- 如需非阻塞检测输入，可搭配hReady判断：
    -- hasInput <- hReady stdin
    -- if hasInput then getChar >>= print else return ()

Windows 平台 #

可以使用Win32包中的终端API修改控制台模式，关闭行输入和回显即可：

import System.IO
import System.Win32.Console
import Control.Exception (finally)
import Data.Bits ((.&.), complement)

main :: IO ()
main = do
  oldMode <- getConsoleMode stdInput
  -- 关闭行输入、回显、处理控制键的默认规则（可选）
  let newMode = oldMode .&. complement (eNABLE_LINE_INPUT .|. eNABLE_ECHO_INPUT .|. eNABLE_PROCESSED_INPUT)
  setConsoleMode stdInput newMode
  hSetBuffering stdin NoBuffering

  flip finally (setConsoleMode stdInput oldMode) $ do
    c <- getChar
    print c

注意事项 #

• 一定要在程序退出前恢复终端/控制台的原始属性，否则会导致终端行为异常，比如输入字符不显示、命令必须按回车才能识别等，建议用finally函数包裹恢复逻辑，避免程序中途崩溃导致终端异常。
• 如果需要持续检测输入不阻塞，可以搭配hReady stdin判断当前是否有输入可读，避免getChar阻塞当前线程。

内容的提问来源于stack exchange，提问作者monadicAutomaton