korrekt gelaicht terminate runghc Prozess

Question

Mit einem Skript wie

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

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

ich erwartete Verhalten bekommen - yes läuft, bis die threadDelay oben ist. Aber wenn ich ersetzen "yes" mit "runghc bar.hs", wo bar.hs ist

import Control.Monad 
import Control.Concurrent 

main = forever (print 5 >> threadDelay 100000) 

... dann bar.hs läuft für immer. Gibt es eine bessere Möglichkeit, runghc zu beenden?

Edit: Dieses Verhalten auf Linux ist

Answer 1

Das ziemlich lustig Verhalten ist. Was ist los ist, dass runghc seinen eigenen Kindprozess hervorbringt, und Sie töten den runghc Prozess, aber nicht das Kind. Die Verwendung von interruptProcessGroupOf anstelle von terminateProcess scheint hier den Trick zu machen, obwohl ich nicht wirklich genug weiß, um zu sagen, ob das eine zuverlässige/korrekte Lösung ist.