rempve some unused files

[ghc-hetmet.git] / ghc / misc / examples / io / io014 / Main.hs

diff --git a/ghc/misc/examples/io/io014/Main.hs b/ghc/misc/examples/io/io014/Main.hs
deleted file mode 100644 (file)
index fecf4a5..0000000
--- a/ghc/misc/examples/io/io014/Main.hs
+++ /dev/null
@@ -1,22 +0,0 @@
-import IO -- 1.3
-
-main = 
-    accumulate (map hIsOpen [stdin, stdout, stderr]) >>= \ opens ->
-    print opens >>
-    accumulate (map hIsClosed [stdin, stdout, stderr]) >>= \ closeds ->
-    print closeds >>
-    accumulate (map hIsReadable [stdin, stdout, stderr]) >>= \ readables ->
-    print readables >>
-    accumulate (map hIsWritable [stdin, stdout, stderr]) >>= \ writables ->
-    print writables >>
-    accumulate (map hIsBlockBuffered [stdin, stdout, stderr]) >>= \ buffereds ->
-    print buffereds >>
-    accumulate (map hIsLineBuffered [stdin, stdout, stderr]) >>= \ buffereds ->
-    print buffereds >>
-    accumulate (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 }