X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FArray%2FIO.hs;h=af156966c212319922a4b64c6c208dcb49bd71b1;hb=7de50399a42ee49b0473b7b6eea2b44a2f941a12;hp=f4faa5211ba1abfe0a5207ea4084806dada4c49b;hpb=2a9bec92edcc9257e83b2e0f8a0ae56d5f4697bb;p=haskell-directory.git

diff --git a/Data/Array/IO.hs b/Data/Array/IO.hs
index f4faa52..af15696 100644
--- a/Data/Array/IO.hs
+++ b/Data/Array/IO.hs
@@ -9,7 +9,7 @@
 -- Stability   :  experimental
 -- Portability :  non-portable
 --
--- $Id: IO.hs,v 1.3 2002/01/02 14:40:10 simonmar Exp $
+-- $Id: IO.hs,v 1.4 2002/02/05 17:32:25 simonmar Exp $
 --
 -- Mutable boxed/unboxed arrays in the IO monad.
 --
@@ -407,7 +407,7 @@ readChunk fd is_stream ptr init_off bytes = loop init_off bytes
   loop off bytes | bytes <= 0 = return (off - init_off)
   loop off bytes = do
     r' <- throwErrnoIfMinus1RetryMayBlock "readChunk"
-	    (read_off (fromIntegral fd) is_stream ptr 
+	    (read_off_ba (fromIntegral fd) is_stream ptr 
 		(fromIntegral off) (fromIntegral bytes))
 	    (threadWaitRead fd)
     let r = fromIntegral r'