[project @ 1996-07-26 20:58:52 by partain]

[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
index 39c429e..9598e04 100644 (file)
--- a/ghc/misc/examples/io/io013/Main.hs
+++ b/ghc/misc/examples/io/io013/Main.hs
@@ -1,8 +1,9 @@
+import IO -- 1.3
+
 main = 
     openFile "io013.in" ReadMode >>= \ h ->
     hFileSize h >>= \ sz -> 
-    putText sz >>
-    putChar '\n' >>
+    print sz >>
     hSeek h SeekFromEnd (-3) >>
     hGetChar h >>= \ x ->
     putStr (x:"\n") >>
@@ -14,4 +15,3 @@ main =
     openFile "/dev/null" ReadMode >>= \ h ->
     hIsSeekable h >>= \ False ->
     hClose h
-    
\ No newline at end of file