X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Ftests%2Fio%2Fshould_run%2Fio018.hs;h=6320c975e6b485298805e7e8920648792fb30aed;hb=2884da5b722f65467ca0e72d5eea3a6dbe8011d1;hp=e465b5b90a941e91f0f2f5c8fab6c92f4f32d3ac;hpb=db85c90784e14bf4218b8ba6a090bdc781b56ef7;p=ghc-hetmet.git

diff --git a/ghc/tests/io/should_run/io018.hs b/ghc/tests/io/should_run/io018.hs
index e465b5b..6320c97 100644
--- 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
-