ghc/tests/concurrent/should_run/conc002.hs

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