[project @ 2000-05-15 11:18:58 by rrt]

[ghc-hetmet.git] / ghc / tests / io / should_run / io018.hs

diff --git a/ghc/tests/io/should_run/io018.hs b/ghc/tests/io/should_run/io018.hs
index e465b5b..6320c97 100644 (file)
--- a/ghc/tests/io/should_run/io018.hs
+++ b/ghc/tests/io/should_run/io018.hs
@@ -31,9 +31,13 @@ main = do
 speakString = "Someone wants to speak with you\n"
 
 speak cd = do
-     ready <- hReady cd
-     if ready then hGetChar cd >>= putChar else return ()
-     ready <- hReady stdin
-     if ready then (do { ch <- getChar; hPutChar cd ch}) else return ()
+     (do
+        ready <- hReady cd
+        if ready then 
+          hGetChar cd >>= putChar
+        else
+          return ()
+        ready <- hReady stdin
+        if ready then (do { ch <- getChar; hPutChar cd ch})
+         else return ())
      speak cd
-