From 379c7f33b6dec6b17f5868c07584e6ab59e86e9c Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 1 Jul 2002 18:50:54 +0000
Subject: [PATCH] [project @ 2002-07-01 18:50:54 by sof] closesocket() is
 stdcall-based

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

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