[project @ 1998-08-17 12:03:58 by simonm]

[ghc-hetmet.git] / ghc / lib / misc / SocketPrim.lhs

diff --git a/ghc/lib/misc/SocketPrim.lhs b/ghc/lib/misc/SocketPrim.lhs
index d7facdb..2cdcc67 100644 (file)
--- 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''