From: ross <unknown>
Date: Thu, 8 Aug 2002 06:25:05 +0000 (+0000)
Subject: [project @ 2002-08-08 06:25:05 by ross]
X-Git-Tag: nhc98-1-18-release~910
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=bb02d065adafd2366048fbbe28c42e02ebc0a1c0;p=ghc-base.git

[project @ 2002-08-08 06:25:05 by ross]
Add hTell to Hugs.
---

diff --git a/System/IO.hs b/System/IO.hs
index e25d422..1226fcc 100644
--- a/System/IO.hs
+++ b/System/IO.hs
@@ -35,9 +35,7 @@ module System.IO (
     hGetPosn,		       -- :: Handle -> IO HandlePosn
     hSetPosn,		       -- :: HandlePosn -> IO ()
     hSeek,		       -- :: Handle -> SeekMode -> Integer -> IO ()
-#ifndef __HUGS__
     hTell,		       -- :: Handle -> IO Integer
-#endif
     hWaitForInput,	       -- :: Handle -> Int -> IO Bool
     hReady,		       -- :: Handle -> IO Bool
     hGetChar,		       -- :: Handle -> IO Char