From: simonm <unknown>
Date: Mon, 17 Aug 1998 12:03:58 +0000 (+0000)
Subject: [project @ 1998-08-17 12:03:58 by simonm]
X-Git-Tag: Approx_2487_patches~319
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=931242f927fca1ab372d6a0e4bc27653edeec853;p=ghc-hetmet.git

[project @ 1998-08-17 12:03:58 by simonm]
add (disabled) SO_REUSEPORT socket option.
---

diff --git a/ghc/lib/misc/SocketPrim.lhs b/ghc/lib/misc/SocketPrim.lhs
index d7facdb..2cdcc67 100644
--- a/ghc/lib/misc/SocketPrim.lhs
+++ b/ghc/lib/misc/SocketPrim.lhs
@@ -545,6 +545,7 @@ data SocketOption
     | NoDelay       {- TCP_NODELAY  -}
 --    | Linger        {- SO_LINGER    -}
 #if 0
+    | ReusePort     {- SO_REUSEPORT -}	-- BSD only?
     | RecvLowWater  {- SO_RCVLOWAT  -}
     | SendLowWater  {- SO_SNDLOWAT  -}
     | RecvTimeOut   {- SO_RCVTIMEO  -}
@@ -568,6 +569,7 @@ packSocketOption so =
     MaxSegment    -> ``TCP_MAXSEG''
     NoDelay       -> ``TCP_NODELAY''
 #if 0
+    ReusePort     -> ``SO_REUSEPORT''	-- BSD only?
     RecvLowWater  -> ``SO_RCVLOWAT''
     SendLowWater  -> ``SO_SNDLOWAT''
     RecvTimeOut   -> ``SO_RCVTIMEO''