From 0cfe27e61d58380603acbec3ba8e5aefcdcf5420 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 18 Mar 2002 14:03:20 +0000
Subject: [PATCH] [project @ 2002-03-18 14:03:20 by simonmar] Fix silly bug I
 noticed unpackAcc, which apparently is not triggered.

---
 GHC/IO.hs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/GHC/IO.hs b/GHC/IO.hs
index bd0ce45..53fe060 100644
--- a/GHC/IO.hs
+++ b/GHC/IO.hs
@@ -3,7 +3,7 @@
 #undef DEBUG_DUMP
 
 -- -----------------------------------------------------------------------------
--- $Id: IO.hs,v 1.5 2002/02/11 12:28:31 simonmar Exp $
+-- $Id: IO.hs,v 1.6 2002/03/18 14:03:20 simonmar Exp $
 --
 -- (c) The University of Glasgow, 1992-2001
 --
@@ -308,7 +308,7 @@ lazyReadHaveBuffer h handle_ fd ref buf = do
 
 
 unpackAcc :: RawBuffer -> Int -> Int -> [Char] -> IO [Char]
-unpackAcc buf r 0 acc  = return ""
+unpackAcc buf r 0 acc  = return acc
 unpackAcc buf (I# r) (I# len) acc = IO $ \s -> unpack acc (len -# 1#) s
    where
     unpack acc i s
-- 
1.7.10.4