ghc/tests/concurrent/should_run/conc002.hs

   1 module Main where
   2
   3 import Concurrent
   4
   5 main = do
   6   c <- newChan
   7   let  writer = writeList2Chan c "Hello World\n"
   8   forkIO writer
   9   let  reader = do  char <- readChan c
  10                     if (char == '\n')
  11                         then return ()
  12                         else do putChar char; reader
  13   reader
  14