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     reader = do
  11         str <- takeMVar s
  12         putStr str
  13
  14   forkIO reader
  15   putMVar s "hello world\n"