Process Termination

import Prelude
import Control.Process (isAlive, exitProc)
-- Exit the current process
exit :normal
go :: Process Boolean
go = do
  pid <- spawn (receive _ -> return ())
  exitProc pid :reason
  isAlive pid