rempve some unused files

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

diff --git a/ghc/misc/examples/io/io013/Main.hs b/ghc/misc/examples/io/io013/Main.hs
deleted file mode 100644 (file)
index 9598e04..0000000
--- a/ghc/misc/examples/io/io013/Main.hs
+++ /dev/null
@@ -1,17 +0,0 @@
-import IO -- 1.3
-
-main = 
-    openFile "io013.in" ReadMode >>= \ h ->
-    hFileSize h >>= \ sz -> 
-    print sz >>
-    hSeek h SeekFromEnd (-3) >>
-    hGetChar h >>= \ x ->
-    putStr (x:"\n") >>
-    hSeek h RelativeSeek (-2) >>
-    hGetChar h >>= \ w ->
-    putStr (w:"\n") >>
-    hIsSeekable h >>= \ True ->
-    hClose h >>
-    openFile "/dev/null" ReadMode >>= \ h ->
-    hIsSeekable h >>= \ False ->
-    hClose h