プラグマのドキュメントをすべて検索しても、プラグマでスレッドのオン/オフを切り替える方法が見つかりませんでした。ヒントはありますか? 私が遊んでいるこの小さなコードのためだけに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