rempve some unused files

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

diff --git a/ghc/misc/examples/io/io008/Main.hs b/ghc/misc/examples/io/io008/Main.hs
deleted file mode 100644 (file)
index 47f1a6e..0000000
--- a/ghc/misc/examples/io/io008/Main.hs
+++ /dev/null
@@ -1,21 +0,0 @@
-import IO -- 1.3
-import GHCio
-
-import Directory (removeFile)
-
-main =
-    openFile "io008.in" ReadMode >>= \ hIn ->
-    openFile "io008.out" ReadWriteMode >>= \ hOut ->
-    removeFile "io008.out" >>
-    hGetPosn hIn >>= \ bof ->
-    copy hIn hOut >>
-    hSetPosn bof >>
-    copy hIn hOut >>
-    hSeek hOut AbsoluteSeek 0 >>
-    hGetContents hOut >>= \ stuff ->
-    putStr stuff
-
-copy :: Handle -> Handle -> IO ()
-copy hIn hOut =
-    tryIO (hGetChar hIn) >>=
-    either (\ err -> if isEOFError err then return () else error "copy") ( \ x -> hPutChar hOut x >> copy hIn hOut)