From: rrt <unknown>
Date: Mon, 15 May 2000 11:18:58 +0000 (+0000)
Subject: [project @ 2000-05-15 11:18:58 by rrt]
X-Git-Tag: Approximately_9120_patches~4471
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2884da5b722f65467ca0e72d5eea3a6dbe8011d1;hp=db85c90784e14bf4218b8ba6a090bdc781b56ef7;p=ghc-hetmet.git

[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).
---

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
-