From 752b0fbd916bbe75357421b8f9d68efad1963011 Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Tue, 26 Jul 2005 11:00:42 +0000
Subject: [PATCH] [project @ 2005-07-26 11:00:42 by ross] this version of
 closeFd is used by GHC only

---
 System/Posix/Internals.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/System/Posix/Internals.hs b/System/Posix/Internals.hs
index a840e55..02fec17 100644
--- a/System/Posix/Internals.hs
+++ b/System/Posix/Internals.hs
@@ -120,7 +120,7 @@ statGetType p_stat = do
 ioe_unknownfiletype = IOError Nothing UnsupportedOperation "fdType"
 			"unknown file type" Nothing
 
-#if defined(mingw32_HOST_OS) || defined(__MINGW32__)
+#if __GLASGOW_HASKELL__ && (defined(mingw32_HOST_OS) || defined(__MINGW32__))
 closeFd :: Bool -> CInt -> IO CInt
 closeFd isStream fd 
   | isStream  = c_closesocket fd
-- 
1.7.10.4