[project @ 1999-11-23 15:26:56 by andy]

Fixing incorrect definition of BlockBuffering in Hugs.

diff --git a/ghc/lib/std/IO.lhs b/ghc/lib/std/IO.lhs
index 0107b7d..f72b817 100644 (file)
--- a/ghc/lib/std/IO.lhs
+++ b/ghc/lib/std/IO.lhs
@@ -776,7 +776,7 @@ data IOMode      = ReadMode | WriteMode | AppendMode | ReadWriteMode
                     deriving (Eq, Ord, Ix, Bounded, Enum, Read, Show)
 
 data BufferMode  =  NoBuffering | LineBuffering 
-                 |  BlockBuffering
+                 |  BlockBuffering (Maybe Int)
                     deriving (Eq, Ord, Read, Show)
 
 data SeekMode    =  AbsoluteSeek | RelativeSeek | SeekFromEnd