From 798614f1e492463c5cbe29e5ff19d446885c0d54 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 11 Mar 2004 10:00:23 +0000
Subject: [PATCH] [project @ 2004-03-11 10:00:23 by simonmar] Don't call
 hGetArray with a size of zero (fixes read021).

---
 ghc/compiler/utils/StringBuffer.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/utils/StringBuffer.lhs b/ghc/compiler/utils/StringBuffer.lhs
index 7c61b5b..6c5d653 100644
--- a/ghc/compiler/utils/StringBuffer.lhs
+++ b/ghc/compiler/utils/StringBuffer.lhs
@@ -98,7 +98,7 @@ hGetStringBuffer fname = do
    r <- hGetBufBA h arr size_i
 #else
    arr <- newArray_ (0,size_i-1)
-   r <- hGetArray h arr size_i
+   r <- if size_i == 0 then return 0 else hGetArray h arr size_i
 #endif
    if (r /= size_i)
 	then ioError (userError "short read of file")
-- 
1.7.10.4