通过编译指示文档进行的所有搜索我都找不到使用编译指示打开/关闭线程的方法,有什么提示吗?不想只为我正在玩的这个小代码创建一个 cabal 文件,但我认为更改线程模式将使我的 killThread 尝试能够杀死一个与之分叉的线程,如果甚至线程开关不会让我杀死这个线程(在 Windows 中运行):
repeatAccept s p = do
c <- accept s
t <- forkFinally (echoHandler c) (exitPool p)
atomically $ do
p' <- readTVar p
writeTVar p ((t,c):p')
repeatAccept s p