ghc/tests/concurrent/should_run/conc001.hs

   1 module Main where
   2
   3 import Concurrent
   4
   5 -- two processes, one MVar communication.
   6
   7 main = do
   8   s <- newEmptyMVar
   9   let
  10     write = do
  11         putMVar s "hello world\n"
  12
  13   forkIO write
  14   str <- takeMVar s
  15   putStr str