Linking

Two processes can be linked to each other.

import Prelude
import Control.Process (killProc, trapExit)
go :: forall a. Process a
go = do
  trapExit true
  pid <- spawn (receive _ -> return ())
  link pid
  killProc pid
  receive msg -> return msg