From: simonmar <unknown>
Date: Mon, 18 Mar 2002 14:03:20 +0000 (+0000)
Subject: [project @ 2002-03-18 14:03:20 by simonmar]
X-Git-Tag: nhc98-1-18-release~1087
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0cfe27e61d58380603acbec3ba8e5aefcdcf5420;p=haskell-directory.git

[project @ 2002-03-18 14:03:20 by simonmar]
Fix silly bug I noticed unpackAcc, which apparently is not triggered.
---

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