[project @ 2000-04-25 11:27:35 by rrt]

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

diff --git a/ghc/tests/io/should_run/io014.hs b/ghc/tests/io/should_run/io014.hs
index fecf4a5..9b956b0 100644 (file)
--- a/ghc/tests/io/should_run/io014.hs
+++ b/ghc/tests/io/should_run/io014.hs
@@ -1,22 +1,21 @@
-import IO -- 1.3
+import IO
 
 main = 
-    accumulate (map hIsOpen [stdin, stdout, stderr]) >>= \ opens ->
+    sequence (map hIsOpen [stdin, stdout, stderr]) >>= \ opens ->
     print opens >>
-    accumulate (map hIsClosed [stdin, stdout, stderr]) >>= \ closeds ->
+    sequence (map hIsClosed [stdin, stdout, stderr]) >>= \ closeds ->
     print closeds >>
-    accumulate (map hIsReadable [stdin, stdout, stderr]) >>= \ readables ->
+    sequence (map hIsReadable [stdin, stdout, stderr]) >>= \ readables ->
     print readables >>
-    accumulate (map hIsWritable [stdin, stdout, stderr]) >>= \ writables ->
+    sequence (map hIsWritable [stdin, stdout, stderr]) >>= \ writables ->
     print writables >>
-    accumulate (map hIsBlockBuffered [stdin, stdout, stderr]) >>= \ buffereds ->
+    sequence (map hIsBlockBuffered [stdin, stdout, stderr]) >>= \ buffereds ->
     print buffereds >>
-    accumulate (map hIsLineBuffered [stdin, stdout, stderr]) >>= \ buffereds ->
+    sequence (map hIsLineBuffered [stdin, stdout, stderr]) >>= \ buffereds ->
     print buffereds >>
-    accumulate (map hIsNotBuffered [stdin, stdout, stderr]) >>= \ buffereds ->
+    sequence (map hIsNotBuffered [stdin, stdout, stderr]) >>= \ buffereds ->
     print buffereds
   where
-    -- these didn't make it into 1.3
     hIsBlockBuffered h = hGetBuffering h >>= \ b -> return $ case b of { BlockBuffering _ -> True; _ -> False }
     hIsLineBuffered  h = hGetBuffering h >>= \ b -> return $ case b of { LineBuffering -> True; _ -> False }
     hIsNotBuffered   h = hGetBuffering h >>= \ b -> return $ case b of { NoBuffering -> True; _ -> False }