From cc01140ea731e061e7f6df3982b4adda8d06a013 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Wed, 16 Apr 2003 15:12:02 +0000
Subject: [PATCH] [project @ 2003-04-16 15:12:02 by sof] hGetArray: wrong
 result length returned.

Merge to STABLE (if that's still on.)
---
 Data/Array/IO.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Data/Array/IO.hs b/Data/Array/IO.hs
index 5644e58..34e9584 100644
--- a/Data/Array/IO.hs
+++ b/Data/Array/IO.hs
@@ -164,7 +164,7 @@ hGetArray handle (IOUArray (STUArray l u ptr)) count
 		let remaining = count - copied
 		if remaining > 0 
 		   then do rest <- readChunk fd is_stream ptr copied remaining
-			   return (rest + count)
+			   return (rest + copied)
 		   else return count
 
 readChunk :: FD -> Bool -> RawBuffer -> Int -> Int -> IO Int
-- 
1.7.10.4