From: sof <unknown>
Date: Tue, 27 Nov 2001 01:53:23 +0000 (+0000)
Subject: [project @ 2001-11-27 01:53:23 by sof]
X-Git-Tag: Approximately_9120_patches~511
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5c8feaaec69fac2ae7a5e359f2656dc5bd1aa260;p=ghc-hetmet.git

[project @ 2001-11-27 01:53:23 by sof]
removed ToDo comment + braino
---

diff --git a/ghc/lib/std/PrelHandle.hs b/ghc/lib/std/PrelHandle.hs
index d65d0bc..5be5c59 100644
--- a/ghc/lib/std/PrelHandle.hs
+++ b/ghc/lib/std/PrelHandle.hs
@@ -4,7 +4,7 @@
 #undef DEBUG
 
 -- -----------------------------------------------------------------------------
--- $Id: PrelHandle.hs,v 1.5 2001/11/26 23:55:27 sof Exp $
+-- $Id: PrelHandle.hs,v 1.6 2001/11/27 01:53:23 sof Exp $
 --
 -- (c) The University of Glasgow, 1994-2001
 --
@@ -307,10 +307,9 @@ handleFinalizer m = do
   flushWriteBufferOnly h_
   let fd = fromIntegral (haFD h_)
   unlockFile fd
-  -- ToDo: closesocket() for a WINSOCK socket?
   when (fd /= -1) 
 #ifdef mingw32_TARGET_OS
-       (closeFd (haIsStream handle_) fd >> return ())
+       (closeFd (haIsStream h_) fd >> return ())
 #else
        (c_close fd >> return ())
 #endif