From 2884da5b722f65467ca0e72d5eea3a6dbe8011d1 Mon Sep 17 00:00:00 2001
From: rrt <unknown>
Date: Mon, 15 May 2000 11:18:58 +0000
Subject: [PATCH] [project @ 2000-05-15 11:18:58 by rrt] Reversed some
 formatting changes to make more similar to last version
 that worked (currently seems not to work on Windows or
 Linux).

---
 ghc/tests/io/should_run/io018.hs |   14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

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
-
-- 
1.7.10.4