From: andy <unknown>
Date: Tue, 23 Nov 1999 15:26:56 +0000 (+0000)
Subject: [project @ 1999-11-23 15:26:56 by andy]
X-Git-Tag: Approximately_9120_patches~5504
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a6ea0713c081380b55bdef091bc0d54bf1f27b75;p=ghc-hetmet.git

[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
--- 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