[project @ 2005-07-26 11:00:42 by ross]
authorross <unknown>
Tue, 26 Jul 2005 11:00:42 +0000 (11:00 +0000)
committerross <unknown>
Tue, 26 Jul 2005 11:00:42 +0000 (11:00 +0000)
this version of closeFd is used by GHC only

libraries/base/System/Posix/Internals.hs

index a840e55..02fec17 100644 (file)
@@ -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