From: qrczak <unknown>
Date: Sat, 9 Jun 2001 07:06:05 +0000 (+0000)
Subject: [project @ 2001-06-09 07:06:05 by qrczak]
X-Git-Tag: Approximately_9120_patches~1783
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8963a700a1a6f0d4a254e863de126c52268f99d8;p=ghc-hetmet.git

[project @ 2001-06-09 07:06:05 by qrczak]
Fix hSetPosn type in the export comment.
---

diff --git a/ghc/lib/std/IO.lhs b/ghc/lib/std/IO.lhs
index 115d363..d078d7b 100644
--- a/ghc/lib/std/IO.lhs
+++ b/ghc/lib/std/IO.lhs
@@ -1,5 +1,5 @@
 % -----------------------------------------------------------------------------
-% $Id: IO.lhs,v 1.43 2001/06/07 10:44:47 sewardj Exp $
+% $Id: IO.lhs,v 1.44 2001/06/09 07:06:05 qrczak Exp $
 %
 % (c) The University of Glasgow, 1994-2000
 %
@@ -19,7 +19,7 @@ module IO (
     BufferMode(NoBuffering,LineBuffering,BlockBuffering),
     SeekMode(AbsoluteSeek,RelativeSeek,SeekFromEnd),
 
-    stdin, stdout, stderr,   -- :: Handle
+    stdin, stdout, stderr,     -- :: Handle
 
     openFile,		       -- :: FilePath -> IOMode -> IO Handle
     hClose,		       -- :: Handle -> IO ()
@@ -31,7 +31,7 @@ module IO (
     hGetBuffering,	       -- :: Handle -> IO BufferMode
     hFlush,		       -- :: Handle -> IO ()
     hGetPosn,		       -- :: Handle -> IO HandlePosn
-    hSetPosn,		       -- :: Handle -> HandlePosn -> IO ()
+    hSetPosn,		       -- :: HandlePosn -> IO ()
     hSeek,		       -- :: Handle -> SeekMode -> Integer -> IO ()
     hWaitForInput,	       -- :: Handle -> Int -> IO Bool
     hReady,		       -- :: Handle -> IO Bool