Receive … after

go :: Process ()
go = do
  pid <- spawn recvAfter
  pid ! :foo
recvAfter :: Process ()
recvAfter =
  receive
    :bar -> println "recv bar"
  after
    1000 -> println "timeout"