[project @ 1999-12-20 10:34:27 by simonpj]

[ghc-hetmet.git] / ghc / lib / std / IO.lhs

diff --git a/ghc/lib/std/IO.lhs b/ghc/lib/std/IO.lhs
index 0107b7d..1a8d4b3 100644 (file)
--- a/ghc/lib/std/IO.lhs
+++ b/ghc/lib/std/IO.lhs
@@ -107,7 +107,7 @@ import PrelRead         ( readParen, Read(..), reads, lex,
 import PrelShow
 import PrelMaybe       ( Either(..), Maybe(..) )
 import PrelAddr                ( Addr(..), nullAddr )
-import PrelArr         ( ByteArray )
+import PrelByteArr     ( ByteArray )
 import PrelPack                ( unpackNBytesAccST )
 import PrelException    ( ioError, catch )
 
@@ -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