From: sof <unknown>
Date: Mon, 1 Jul 2002 18:50:54 +0000 (+0000)
Subject: [project @ 2002-07-01 18:50:54 by sof]
X-Git-Tag: nhc98-1-18-release~959
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=379c7f33b6dec6b17f5868c07584e6ab59e86e9c;p=ghc-base.git

[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
--- 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