unix - 正确终止生成的 runghc 进程

Question

像这样的脚本

-- foo.hs
import System.Process
import Control.Concurrent

main = do
   a <- runCommand "yes"
   threadDelay 1000000
   terminateProcess a

我得到预期的行为 -- yes一直运行到 threadDelay起来了。但是如果我替换 "yes"与 "runghc bar.hs" , bar.hs 在哪里

import Control.Monad
import Control.Concurrent

main = forever (print 5 >> threadDelay 100000)

...然后 bar.hs 永远运行。有没有更好的方法让 runghc 终止？

编辑:
此行为在 linux 上

Answer 1

这是非常有趣的行为。这是怎么回事runghc产生它自己的子进程，然后你杀死 runghc过程而不是 child 。使用 interruptProcessGroupOf 代替 terminateProcess似乎在这里可以解决问题，尽管我真的不知道这是否是一个可靠/正确的解决方案。