testsuite/tests/ghc-regress/concurrent/should_run/conc002.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14

module Main where

import Control.Concurrent

main = do
  c <- newChan
  let  writer = writeList2Chan c "Hello World\n"
  forkIO writer
  let  reader = do  char <- readChan c
		    if (char == '\n') 
			then return () 
			else do	putChar char; reader	
  reader