X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FIO.hs;h=b03413292e484b4ed041302352f08a41ca6dc6ed;hb=9fa9bc17072a58c0bae2cce4764d38677e96ac29;hp=cb1caab364c66c1d87e53561dd03edb7a4e0faf1;hpb=ae47102dd9cc6a1e3d1edcade7765f589ef21714;p=ghc-base.git

diff --git a/System/IO.hs b/System/IO.hs
index cb1caab..b034132 100644
--- a/System/IO.hs
+++ b/System/IO.hs
@@ -1,6 +1,6 @@
 {-# OPTIONS -fno-implicit-prelude #-}
 -----------------------------------------------------------------------------
--- 
+-- |
 -- Module      :  System.IO
 -- Copyright   :  (c) The University of Glasgow 2001
 -- License     :  BSD-style (see the file libraries/core/LICENSE)
@@ -9,7 +9,7 @@
 -- Stability   :  provisional
 -- Portability :  portable
 --
--- $Id: IO.hs,v 1.4 2002/02/12 10:51:06 simonmar Exp $
+-- $Id: IO.hs,v 1.7 2002/04/24 16:31:45 simonmar Exp $
 --
 -- The standard IO library.
 --
@@ -37,6 +37,7 @@ module System.IO (
     hGetPosn,		       -- :: Handle -> IO HandlePosn
     hSetPosn,		       -- :: HandlePosn -> IO ()
     hSeek,		       -- :: Handle -> SeekMode -> Integer -> IO ()
+    hTell,		       -- :: Handle -> IO Integer
     hWaitForInput,	       -- :: Handle -> Int -> IO Bool
     hReady,		       -- :: Handle -> IO Bool
     hGetChar,		       -- :: Handle -> IO Char
@@ -111,23 +112,9 @@ import GHC.Read
 import GHC.Show
 #endif
 
-import Data.Dynamic
-import Control.Monad.Fix
 import System.IO.Error
 
 -- -----------------------------------------------------------------------------
--- MonadFix instance
-
-instance MonadFix IO where
-	mfix = fixIO
-
--- -----------------------------------------------------------------------------
--- Typeable instance for Handle
-
-#include "Dynamic.h"
-INSTANCE_TYPEABLE0(Handle,handleTc,"Handle")
-
--- -----------------------------------------------------------------------------
 -- Standard IO
 
 putChar         :: Char -> IO ()