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

Fixing incorrect definition of BlockBuffering in Hugs.

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