ghc/tests/concurrent/should_run/conc025.hs

   1 -- !!! Simple test of dupChan
   2 -- Embarassingly, the published version fails!
   3
   4 module Main where
   5
   6 import Exception
   7 import Chan
   8
   9 main = do
  10           chan <- newChan
  11           ch <- dupChan chan
  12           writeChan chan "done"
  13           x <- readChan chan
  14           y <- readChan ch
  15           print ("Got "++x ++" "++y)
  16