From: ross <unknown>
Date: Tue, 26 Jul 2005 11:00:42 +0000 (+0000)
Subject: [project @ 2005-07-26 11:00:42 by ross]
X-Git-Tag: cmm-merge2~40
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=752b0fbd916bbe75357421b8f9d68efad1963011;p=haskell-directory.git

[project @ 2005-07-26 11:00:42 by ross]
this version of closeFd is used by GHC only
---

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