Haskell中轮询文件描述符的推荐实现方式是什么？

首先得明确：GHC.Event确实是GHC的内部模块，官方明确标注了不应该直接依赖——它的API没有稳定性承诺，GHC版本升级很可能导致你的代码无法编译或者运行异常，所以避开直接用它是非常明智的选择。

针对你的udev事件监听场景，这里有几个更现代、维护良好且依赖合理的替代方案：

1. 基于libev/libuv的Haskell绑定 #

这些库封装了成熟的跨平台IO多路复用机制（Linux下用epoll，BSD/macOS用kqueue等），性能和稳定性都有保障：

• haskell-libev：绑定了libev库，提供了简洁的事件循环API，支持文件描述符的读写事件监听，完全适配udev监控的需求。你可以把udev监控返回的文件描述符注册到libev的读事件回调中，一旦有udev事件触发就执行你的处理逻辑。
• haskell-uv：绑定了libuv库（Node.js底层用的就是它），除了IO多路复用，还提供了更多异步IO能力，如果你未来有扩展其他异步操作的需求，这个库会更灵活。

这类方案的优势是底层依赖的C库都是业界广泛使用、长期维护的，Haskell绑定也大多保持更新，不用自己处理底层的epoll调用细节。

2. 用GHC官方上层API实现轻量监听 #

如果你不想引入外部C库依赖，可以直接用GHC提供的threadWaitRead（来自unix库）配合async库实现——这个方案底层其实就是复用了GHC.Event的epoll机制，但完全通过安全的上层接口调用：

import Control.Concurrent.Async (async)
import Control.Monad (forever)
import System.Unix (Fd, threadWaitRead)
import qualified System.Udev as Udev

-- 处理udev事件的逻辑
handleUdevEvent :: Udev.Device -> IO ()
handleUdevEvent dev = do
  -- 示例：检查是否是亮度相关事件
  let subsys = Udev.deviceGetSubsystem dev
      devPath = Udev.deviceGetDevpath dev
  if subsys == "backlight"
    then putStrLn $ "亮度变化：" ++ devPath
    else return ()

-- 启动udev监听
startUdevMonitor :: IO ()
startUdevMonitor = do
  udev <- Udev.createUdev
  monitor <- Udev.monitorNewFromNetlink udev "udev"
  Udev.monitorEnableReceiving monitor
  let fd = Udev.monitorGetFd monitor
  -- 开一个异步线程处理事件
  _ <- async $ forever $ do
    -- 等待fd可读（底层用epoll实现）
    threadWaitRead fd
    -- 读取udev事件
    maybeEvent <- Udev.monitorReceiveDevice monitor
    case maybeEvent of
      Just event -> handleUdevEvent event
      Nothing -> putStrLn "读取udev事件失败"
  putStrLn "udev监视器已启动"
  -- 可以在这里添加主线程的逻辑，或者用wait阻塞
  forever $ return ()

这个方案的好处是依赖极少（只需要unix和async，这两个都是Haskell生态的基础库），完全不需要碰GHC的内部模块，同时又能享受到epoll的高效性。

3. 选择维护更好的udev专用库 #

你提到的现有示例用了select封装的udev库，如果那个库维护不够活跃，可以看看社区里的替代项——比如一些更新的udev Haskell绑定，它们可能已经切换到了更现代的IO多路复用机制。不过目前来看，上面两种方案的通用性和灵活性会更强，即使udev库本身用的是select，你也可以通过替换事件监听的部分来升级成epoll-based的实现。

总结下来，如果你追求最省心的跨平台方案，选libev/libuv的绑定；如果想尽量减少依赖，用threadWaitRead+async的组合就足够满足你的udev事件监听需求了。

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