correttamente Terminare ha generato runghc processo

Question

Con uno script come

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

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

ottengo comportamento previsto - yes piste fino a quando il threadDelay è in alto. Ma se sostituisco "yes" con "runghc bar.hs", dove bar.hs è

import Control.Monad 
import Control.Concurrent 

main = forever (print 5 >> threadDelay 100000) 

... poi bar.hs corre sempre. C'è un modo migliore per far terminare il runghc?

Edit: Questo comportamento è in linux

Answer 1

Questo è un comportamento abbastanza divertente. Quello che succede è che runghc genera il proprio processo figlio e si uccide il processo runghc ma non il bambino. Usare interruptProcessGroupOf al posto di terminateProcess sembra fare il trucco qui, anche se non so davvero abbastanza per dire se sia una soluzione affidabile/corretta.