[project @ 2001-08-22 12:24:41 by simonmar]

[ghc-hetmet.git] / ghc / tests / concurrent / should_run / conc002.hs

diff --git a/ghc/tests/concurrent/should_run/conc002.hs b/ghc/tests/concurrent/should_run/conc002.hs
deleted file mode 100644 (file)
index 7008802..0000000
--- a/ghc/tests/concurrent/should_run/conc002.hs
+++ /dev/null
@@ -1,14 +0,0 @@
-module Main where
-
-import 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
-