From 5155d694cd4118c134dc74fe19348ac70e22433d Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 14 Jan 2005 11:46:24 +0000
Subject: [PATCH] [project @ 2005-01-14 11:46:24 by simonmar]
 hGetStringBuffer: hClose the file after we've read it
 (duh).  This causes a real problem on Windows, where the
 file remains locked in GHCi, and cannot be modified until
 after the finalizer has closed it (bug #1047408).

---
 ghc/compiler/utils/StringBuffer.lhs |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/ghc/compiler/utils/StringBuffer.lhs b/ghc/compiler/utils/StringBuffer.lhs
index 61a0321..a8c7a1e 100644
--- a/ghc/compiler/utils/StringBuffer.lhs
+++ b/ghc/compiler/utils/StringBuffer.lhs
@@ -49,7 +49,8 @@ import GHC.IOBase
 import GHC.IO		( slurpFile )
 #endif
 
-import IO			( openFile, hFileSize, IOMode(ReadMode) )
+import IO			( openFile, hFileSize, IOMode(ReadMode),
+				  hClose )
 #if __GLASGOW_HASKELL__ >= 601
 import System.IO		( openBinaryFile )
 #else
@@ -103,6 +104,7 @@ hGetStringBuffer fname = do
    arr <- newArray_ (0,size_i-1)
    r <- if size_i == 0 then return 0 else hGetArray h arr size_i
 #endif
+   hClose h
    if (r /= size_i)
 	then ioError (userError "short read of file")
 	else do
-- 
1.7.10.4