[project @ 2002-07-01 18:50:54 by sof]

closesocket() is stdcall-based

diff --git a/GHC/Posix.hs b/GHC/Posix.hs
index b020814..7dc08b3 100644 (file)
--- a/GHC/Posix.hs
+++ b/GHC/Posix.hs
@@ -136,7 +136,7 @@ closeFd isStream fd
   | isStream  = c_closesocket fd
   | otherwise = c_close fd
 
-foreign import ccall unsafe "closesocket"
+foreign import stdcall unsafe "closesocket"
    c_closesocket :: CInt -> IO CInt
 #endif