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

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

diff --git a/ghc/tests/concurrent/should_run/conc005.hs b/ghc/tests/concurrent/should_run/conc005.hs
deleted file mode 100644 (file)
index ba7d2ad..0000000
--- a/ghc/tests/concurrent/should_run/conc005.hs
+++ /dev/null
@@ -1,23 +0,0 @@
-module Main where
-
-import Concurrent
-
--- same as conc004, but using the ChannelVar abstraction
-
-main = do
-  v <- newCVar
-  done <- newEmptyMVar
-  let
-       reader = do
-           c <- readCVar v
-           if (c == '\n') 
-               then putMVar done ()
-               else do putChar c; reader
-
-       writer []     = do writeCVar v '\n'; return ()
-       writer (c:cs) = do writeCVar v c;    writer cs
-
-  forkIO reader
-  writer "Hello World"
-  takeMVar done
-