diff options
Diffstat (limited to 'libraries/base/tests/IO/readwrite002.hs')
| -rw-r--r-- | libraries/base/tests/IO/readwrite002.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libraries/base/tests/IO/readwrite002.hs b/libraries/base/tests/IO/readwrite002.hs index 4623f430a9..37c7da39cb 100644 --- a/libraries/base/tests/IO/readwrite002.hs +++ b/libraries/base/tests/IO/readwrite002.hs @@ -1,4 +1,4 @@ --- !!! Testing RW handles +-- !!! Testing RW handles import System.IO import System.IO.Error @@ -39,10 +39,10 @@ speakString = "##############################\n" speak cd = do (do ready <- hReady cd - if ready then - hGetChar cd >>= putChar - else - return () + if ready then + hGetChar cd >>= putChar + else + return () ready <- hReady stdin if ready then (do { ch <- getChar; hPutChar cd ch}) else return ()) |