rempve some unused files
[ghc-hetmet.git] / ghc / misc / examples / io / io007 / Main.hs
diff --git a/ghc/misc/examples/io/io007/Main.hs b/ghc/misc/examples/io/io007/Main.hs
deleted file mode 100644 (file)
index 467382f..0000000
+++ /dev/null
@@ -1,11 +0,0 @@
-import IO -- 1.3
-
-main =
-    openFile "io007.in" ReadMode >>= \ hIn ->
-    hPutStr hIn "test" `catch`
-    \ err ->
-        if isIllegalOperation err then
-        hGetContents hIn >>= \ stuff ->
-        hPutStr stdout stuff
-       else
-           error "Oh dear\n"