From a6ea0713c081380b55bdef091bc0d54bf1f27b75 Mon Sep 17 00:00:00 2001
From: andy <unknown>
Date: Tue, 23 Nov 1999 15:26:56 +0000
Subject: [PATCH] [project @ 1999-11-23 15:26:56 by andy] Fixing incorrect
 definition of BlockBuffering in Hugs.

---
 ghc/lib/std/IO.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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