{-# LINE 1 "src/Netw/Internal/Enum.hsc" #-}
{-# OPTIONS_GHC -Wno-missing-pattern-synonym-signatures #-}
{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE TemplateHaskell #-}
module Netw.Internal.Enum where
import Netw.Internal.Protocols
{- NOTE: This module is platform-depenent (Linux)
 - -}



import Foreign
import Foreign.C


newtype ProtocolFamily  = ProtocolFamily CInt deriving (ProtocolFamily -> ProtocolFamily -> Bool
(ProtocolFamily -> ProtocolFamily -> Bool)
-> (ProtocolFamily -> ProtocolFamily -> Bool) -> Eq ProtocolFamily
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ProtocolFamily -> ProtocolFamily -> Bool
== :: ProtocolFamily -> ProtocolFamily -> Bool
$c/= :: ProtocolFamily -> ProtocolFamily -> Bool
/= :: ProtocolFamily -> ProtocolFamily -> Bool
Eq)
-- TODO: Add more and maybe use macro to check if value is defined
-- PF_LOCAL and PF_UNIX should be the same on every platform

{-# LINE 19 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_UNIX         = ProtocolFamily 1
{-# LINE 20 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_LOCAL        = ProtocolFamily 1
{-# LINE 21 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_INET         = ProtocolFamily 2
{-# LINE 22 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_AX25         = ProtocolFamily 3
{-# LINE 23 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_IPX          = ProtocolFamily 4
{-# LINE 24 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_APPLETALK    = ProtocolFamily 5
{-# LINE 25 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_NETROM       = ProtocolFamily 6
{-# LINE 26 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_BRIDGE       = ProtocolFamily 7
{-# LINE 27 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_ATMPVC       = ProtocolFamily 8
{-# LINE 28 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_X25          = ProtocolFamily 9
{-# LINE 29 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_INET6        = ProtocolFamily 10
{-# LINE 30 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_ROSE         = ProtocolFamily 11
{-# LINE 31 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_DECnet       = ProtocolFamily 12
{-# LINE 32 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_NETBEUI      = ProtocolFamily 13
{-# LINE 33 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_SECURITY     = ProtocolFamily 14
{-# LINE 34 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_KEY          = ProtocolFamily 15
{-# LINE 35 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_NETLINK      = ProtocolFamily 16
{-# LINE 36 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_PACKET       = ProtocolFamily 17
{-# LINE 37 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_ECONET       = ProtocolFamily 19
{-# LINE 38 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_ATMSVC       = ProtocolFamily 20
{-# LINE 39 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_RDS          = ProtocolFamily 21
{-# LINE 40 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_IRDA         = ProtocolFamily 23
{-# LINE 41 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_PPPOX        = ProtocolFamily 24
{-# LINE 42 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_WANPIPE      = ProtocolFamily 25
{-# LINE 43 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_LLC          = ProtocolFamily 26
{-# LINE 44 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_IB           = ProtocolFamily 27
{-# LINE 45 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_MPLS         = ProtocolFamily 28
{-# LINE 46 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_CAN          = ProtocolFamily 29
{-# LINE 47 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_TIPC         = ProtocolFamily 30
{-# LINE 48 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_BLUETOOTH    = ProtocolFamily 31
{-# LINE 49 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_IUCV         = ProtocolFamily 32
{-# LINE 50 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_RXRPC        = ProtocolFamily 33
{-# LINE 51 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_ISDN         = ProtocolFamily 34
{-# LINE 52 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_PHONET       = ProtocolFamily 35
{-# LINE 53 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_IEEE802154   = ProtocolFamily 36
{-# LINE 54 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_CAIF         = ProtocolFamily 37
{-# LINE 55 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_ALG          = ProtocolFamily 38
{-# LINE 56 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_VSOCK        = ProtocolFamily 40
{-# LINE 57 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_KCM          = ProtocolFamily 41
{-# LINE 58 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_QIPCRTR      = ProtocolFamily 42
{-# LINE 59 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_SMC          = ProtocolFamily 43
{-# LINE 60 "src/Netw/Internal/Enum.hsc" #-}
pattern PF_XDP          = ProtocolFamily 44
{-# LINE 61 "src/Netw/Internal/Enum.hsc" #-}

{-# LINE 62 "src/Netw/Internal/Enum.hsc" #-}

newtype SocketType      = SocketType CInt deriving (SocketType -> SocketType -> Bool
(SocketType -> SocketType -> Bool)
-> (SocketType -> SocketType -> Bool) -> Eq SocketType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SocketType -> SocketType -> Bool
== :: SocketType -> SocketType -> Bool
$c/= :: SocketType -> SocketType -> Bool
/= :: SocketType -> SocketType -> Bool
Eq, Eq SocketType
SocketType
Eq SocketType =>
(SocketType -> SocketType -> SocketType)
-> (SocketType -> SocketType -> SocketType)
-> (SocketType -> SocketType -> SocketType)
-> (SocketType -> SocketType)
-> (SocketType -> Int -> SocketType)
-> (SocketType -> Int -> SocketType)
-> SocketType
-> (Int -> SocketType)
-> (SocketType -> Int -> SocketType)
-> (SocketType -> Int -> SocketType)
-> (SocketType -> Int -> SocketType)
-> (SocketType -> Int -> Bool)
-> (SocketType -> Maybe Int)
-> (SocketType -> Int)
-> (SocketType -> Bool)
-> (SocketType -> Int -> SocketType)
-> (SocketType -> Int -> SocketType)
-> (SocketType -> Int -> SocketType)
-> (SocketType -> Int -> SocketType)
-> (SocketType -> Int -> SocketType)
-> (SocketType -> Int -> SocketType)
-> (SocketType -> Int)
-> Bits SocketType
Int -> SocketType
SocketType -> Bool
SocketType -> Int
SocketType -> Maybe Int
SocketType -> SocketType
SocketType -> Int -> Bool
SocketType -> Int -> SocketType
SocketType -> SocketType -> SocketType
forall a.
Eq a =>
(a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> a
-> (Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> Bool)
-> (a -> Maybe Int)
-> (a -> Int)
-> (a -> Bool)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int)
-> Bits a
$c.&. :: SocketType -> SocketType -> SocketType
.&. :: SocketType -> SocketType -> SocketType
$c.|. :: SocketType -> SocketType -> SocketType
.|. :: SocketType -> SocketType -> SocketType
$cxor :: SocketType -> SocketType -> SocketType
xor :: SocketType -> SocketType -> SocketType
$ccomplement :: SocketType -> SocketType
complement :: SocketType -> SocketType
$cshift :: SocketType -> Int -> SocketType
shift :: SocketType -> Int -> SocketType
$crotate :: SocketType -> Int -> SocketType
rotate :: SocketType -> Int -> SocketType
$czeroBits :: SocketType
zeroBits :: SocketType
$cbit :: Int -> SocketType
bit :: Int -> SocketType
$csetBit :: SocketType -> Int -> SocketType
setBit :: SocketType -> Int -> SocketType
$cclearBit :: SocketType -> Int -> SocketType
clearBit :: SocketType -> Int -> SocketType
$ccomplementBit :: SocketType -> Int -> SocketType
complementBit :: SocketType -> Int -> SocketType
$ctestBit :: SocketType -> Int -> Bool
testBit :: SocketType -> Int -> Bool
$cbitSizeMaybe :: SocketType -> Maybe Int
bitSizeMaybe :: SocketType -> Maybe Int
$cbitSize :: SocketType -> Int
bitSize :: SocketType -> Int
$cisSigned :: SocketType -> Bool
isSigned :: SocketType -> Bool
$cshiftL :: SocketType -> Int -> SocketType
shiftL :: SocketType -> Int -> SocketType
$cunsafeShiftL :: SocketType -> Int -> SocketType
unsafeShiftL :: SocketType -> Int -> SocketType
$cshiftR :: SocketType -> Int -> SocketType
shiftR :: SocketType -> Int -> SocketType
$cunsafeShiftR :: SocketType -> Int -> SocketType
unsafeShiftR :: SocketType -> Int -> SocketType
$crotateL :: SocketType -> Int -> SocketType
rotateL :: SocketType -> Int -> SocketType
$crotateR :: SocketType -> Int -> SocketType
rotateR :: SocketType -> Int -> SocketType
$cpopCount :: SocketType -> Int
popCount :: SocketType -> Int
Bits)
pattern $mSOCK_STREAM :: forall {r}. SocketType -> ((# #) -> r) -> ((# #) -> r) -> r
$bSOCK_STREAM :: SocketType
SOCK_STREAM     = SocketType 1
{-# LINE 65 "src/Netw/Internal/Enum.hsc" #-}
pattern SOCK_DGRAM      = SocketType 2
{-# LINE 66 "src/Netw/Internal/Enum.hsc" #-}
pattern SOCK_SEQPACKET  = SocketType 5
{-# LINE 67 "src/Netw/Internal/Enum.hsc" #-}


{-# LINE 69 "src/Netw/Internal/Enum.hsc" #-}
pattern SOCK_RAW        = SocketType 3
{-# LINE 70 "src/Netw/Internal/Enum.hsc" #-}
pattern SOCK_RDM        = SocketType 4
{-# LINE 71 "src/Netw/Internal/Enum.hsc" #-}
pattern SOCK_PACKET     = SocketType 10
{-# LINE 72 "src/Netw/Internal/Enum.hsc" #-}

-- These are a little different
pattern $mSOCK_NONBLOCK :: forall {r}. SocketType -> ((# #) -> r) -> ((# #) -> r) -> r
$bSOCK_NONBLOCK :: SocketType
SOCK_NONBLOCK   = SocketType 2048
{-# LINE 75 "src/Netw/Internal/Enum.hsc" #-}
pattern SOCK_CLOEXEC    = SocketType 524288
{-# LINE 76 "src/Netw/Internal/Enum.hsc" #-}

{-# LINE 77 "src/Netw/Internal/Enum.hsc" #-}

newtype Protocol        = Protocol CInt deriving Protocol -> Protocol -> Bool
(Protocol -> Protocol -> Bool)
-> (Protocol -> Protocol -> Bool) -> Eq Protocol
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Protocol -> Protocol -> Bool
== :: Protocol -> Protocol -> Bool
$c/= :: Protocol -> Protocol -> Bool
/= :: Protocol -> Protocol -> Bool
Eq
pattern $mDefaultProtocol :: forall {r}. Protocol -> ((# #) -> r) -> ((# #) -> r) -> r
$bDefaultProtocol :: Protocol
DefaultProtocol = Protocol 0
-- Some values have different name from the equivalent in 
-- netinet/in.h
$(declareProtocols 'Protocol)

-- These value are not defined in /etc/protocols but is defined
-- in netinet/in.h

{-# LINE 87 "src/Netw/Internal/Enum.hsc" #-}
pattern IPPROTO_IP      = Protocol 0
{-# LINE 88 "src/Netw/Internal/Enum.hsc" #-}
pattern IPPROTO_RAW     = Protocol 255
{-# LINE 89 "src/Netw/Internal/Enum.hsc" #-}
pattern IPPROTO_MPTCP   = Protocol 262
{-# LINE 90 "src/Netw/Internal/Enum.hsc" #-}
pattern IPPROTO_MH      = Protocol 135
{-# LINE 91 "src/Netw/Internal/Enum.hsc" #-}

{-# LINE 92 "src/Netw/Internal/Enum.hsc" #-}

newtype MsgFlags        = MsgFlags CInt deriving (MsgFlags -> MsgFlags -> Bool
(MsgFlags -> MsgFlags -> Bool)
-> (MsgFlags -> MsgFlags -> Bool) -> Eq MsgFlags
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MsgFlags -> MsgFlags -> Bool
== :: MsgFlags -> MsgFlags -> Bool
$c/= :: MsgFlags -> MsgFlags -> Bool
/= :: MsgFlags -> MsgFlags -> Bool
Eq, Eq MsgFlags
MsgFlags
Eq MsgFlags =>
(MsgFlags -> MsgFlags -> MsgFlags)
-> (MsgFlags -> MsgFlags -> MsgFlags)
-> (MsgFlags -> MsgFlags -> MsgFlags)
-> (MsgFlags -> MsgFlags)
-> (MsgFlags -> Int -> MsgFlags)
-> (MsgFlags -> Int -> MsgFlags)
-> MsgFlags
-> (Int -> MsgFlags)
-> (MsgFlags -> Int -> MsgFlags)
-> (MsgFlags -> Int -> MsgFlags)
-> (MsgFlags -> Int -> MsgFlags)
-> (MsgFlags -> Int -> Bool)
-> (MsgFlags -> Maybe Int)
-> (MsgFlags -> Int)
-> (MsgFlags -> Bool)
-> (MsgFlags -> Int -> MsgFlags)
-> (MsgFlags -> Int -> MsgFlags)
-> (MsgFlags -> Int -> MsgFlags)
-> (MsgFlags -> Int -> MsgFlags)
-> (MsgFlags -> Int -> MsgFlags)
-> (MsgFlags -> Int -> MsgFlags)
-> (MsgFlags -> Int)
-> Bits MsgFlags
Int -> MsgFlags
MsgFlags -> Bool
MsgFlags -> Int
MsgFlags -> Maybe Int
MsgFlags -> MsgFlags
MsgFlags -> Int -> Bool
MsgFlags -> Int -> MsgFlags
MsgFlags -> MsgFlags -> MsgFlags
forall a.
Eq a =>
(a -> a -> a)
-> (a -> a -> a)
-> (a -> a -> a)
-> (a -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> a
-> (Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> Bool)
-> (a -> Maybe Int)
-> (a -> Int)
-> (a -> Bool)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int -> a)
-> (a -> Int)
-> Bits a
$c.&. :: MsgFlags -> MsgFlags -> MsgFlags
.&. :: MsgFlags -> MsgFlags -> MsgFlags
$c.|. :: MsgFlags -> MsgFlags -> MsgFlags
.|. :: MsgFlags -> MsgFlags -> MsgFlags
$cxor :: MsgFlags -> MsgFlags -> MsgFlags
xor :: MsgFlags -> MsgFlags -> MsgFlags
$ccomplement :: MsgFlags -> MsgFlags
complement :: MsgFlags -> MsgFlags
$cshift :: MsgFlags -> Int -> MsgFlags
shift :: MsgFlags -> Int -> MsgFlags
$crotate :: MsgFlags -> Int -> MsgFlags
rotate :: MsgFlags -> Int -> MsgFlags
$czeroBits :: MsgFlags
zeroBits :: MsgFlags
$cbit :: Int -> MsgFlags
bit :: Int -> MsgFlags
$csetBit :: MsgFlags -> Int -> MsgFlags
setBit :: MsgFlags -> Int -> MsgFlags
$cclearBit :: MsgFlags -> Int -> MsgFlags
clearBit :: MsgFlags -> Int -> MsgFlags
$ccomplementBit :: MsgFlags -> Int -> MsgFlags
complementBit :: MsgFlags -> Int -> MsgFlags
$ctestBit :: MsgFlags -> Int -> Bool
testBit :: MsgFlags -> Int -> Bool
$cbitSizeMaybe :: MsgFlags -> Maybe Int
bitSizeMaybe :: MsgFlags -> Maybe Int
$cbitSize :: MsgFlags -> Int
bitSize :: MsgFlags -> Int
$cisSigned :: MsgFlags -> Bool
isSigned :: MsgFlags -> Bool
$cshiftL :: MsgFlags -> Int -> MsgFlags
shiftL :: MsgFlags -> Int -> MsgFlags
$cunsafeShiftL :: MsgFlags -> Int -> MsgFlags
unsafeShiftL :: MsgFlags -> Int -> MsgFlags
$cshiftR :: MsgFlags -> Int -> MsgFlags
shiftR :: MsgFlags -> Int -> MsgFlags
$cunsafeShiftR :: MsgFlags -> Int -> MsgFlags
unsafeShiftR :: MsgFlags -> Int -> MsgFlags
$crotateL :: MsgFlags -> Int -> MsgFlags
rotateL :: MsgFlags -> Int -> MsgFlags
$crotateR :: MsgFlags -> Int -> MsgFlags
rotateR :: MsgFlags -> Int -> MsgFlags
$cpopCount :: MsgFlags -> Int
popCount :: MsgFlags -> Int
Bits, Ptr MsgFlags -> IO MsgFlags
Ptr MsgFlags -> Int -> IO MsgFlags
Ptr MsgFlags -> Int -> MsgFlags -> IO ()
Ptr MsgFlags -> MsgFlags -> IO ()
MsgFlags -> Int
(MsgFlags -> Int)
-> (MsgFlags -> Int)
-> (Ptr MsgFlags -> Int -> IO MsgFlags)
-> (Ptr MsgFlags -> Int -> MsgFlags -> IO ())
-> (forall b. Ptr b -> Int -> IO MsgFlags)
-> (forall b. Ptr b -> Int -> MsgFlags -> IO ())
-> (Ptr MsgFlags -> IO MsgFlags)
-> (Ptr MsgFlags -> MsgFlags -> IO ())
-> Storable MsgFlags
forall b. Ptr b -> Int -> IO MsgFlags
forall b. Ptr b -> Int -> MsgFlags -> IO ()
forall a.
(a -> Int)
-> (a -> Int)
-> (Ptr a -> Int -> IO a)
-> (Ptr a -> Int -> a -> IO ())
-> (forall b. Ptr b -> Int -> IO a)
-> (forall b. Ptr b -> Int -> a -> IO ())
-> (Ptr a -> IO a)
-> (Ptr a -> a -> IO ())
-> Storable a
$csizeOf :: MsgFlags -> Int
sizeOf :: MsgFlags -> Int
$calignment :: MsgFlags -> Int
alignment :: MsgFlags -> Int
$cpeekElemOff :: Ptr MsgFlags -> Int -> IO MsgFlags
peekElemOff :: Ptr MsgFlags -> Int -> IO MsgFlags
$cpokeElemOff :: Ptr MsgFlags -> Int -> MsgFlags -> IO ()
pokeElemOff :: Ptr MsgFlags -> Int -> MsgFlags -> IO ()
$cpeekByteOff :: forall b. Ptr b -> Int -> IO MsgFlags
peekByteOff :: forall b. Ptr b -> Int -> IO MsgFlags
$cpokeByteOff :: forall b. Ptr b -> Int -> MsgFlags -> IO ()
pokeByteOff :: forall b. Ptr b -> Int -> MsgFlags -> IO ()
$cpeek :: Ptr MsgFlags -> IO MsgFlags
peek :: Ptr MsgFlags -> IO MsgFlags
$cpoke :: Ptr MsgFlags -> MsgFlags -> IO ()
poke :: Ptr MsgFlags -> MsgFlags -> IO ()
Storable)
pattern $mMSG_EOR :: forall {r}. MsgFlags -> ((# #) -> r) -> ((# #) -> r) -> r
$bMSG_EOR :: MsgFlags
MSG_EOR         = MsgFlags 128
{-# LINE 95 "src/Netw/Internal/Enum.hsc" #-}
pattern MSG_OOB         = MsgFlags 1
{-# LINE 96 "src/Netw/Internal/Enum.hsc" #-}
pattern MSG_NOSIGNAL    = MsgFlags 16384
{-# LINE 97 "src/Netw/Internal/Enum.hsc" #-}
pattern MSG_PEEK        = MsgFlags 2
{-# LINE 98 "src/Netw/Internal/Enum.hsc" #-}
pattern MSG_WAITALL     = MsgFlags 256
{-# LINE 99 "src/Netw/Internal/Enum.hsc" #-}
pattern MSG_TRUNC       = MsgFlags 32
{-# LINE 100 "src/Netw/Internal/Enum.hsc" #-}
pattern MSG_CTRUNC      = MsgFlags 8
{-# LINE 101 "src/Netw/Internal/Enum.hsc" #-}

-- These seem to be specific to linux
-- They don't appear in posix man pages

{-# LINE 105 "src/Netw/Internal/Enum.hsc" #-}
pattern MSG_CONFIRM      = MsgFlags (2048)   
{-# LINE 106 "src/Netw/Internal/Enum.hsc" #-}
pattern MSG_DONTROUTE    = MsgFlags (4)   
{-# LINE 107 "src/Netw/Internal/Enum.hsc" #-}
pattern MSG_DONTWAIT     = MsgFlags (64)   
{-# LINE 108 "src/Netw/Internal/Enum.hsc" #-}
pattern MSG_MORE         = MsgFlags (32768)   
{-# LINE 109 "src/Netw/Internal/Enum.hsc" #-}
pattern MSG_FASTOPEN     = MsgFlags (536870912)    
{-# LINE 110 "src/Netw/Internal/Enum.hsc" #-}

pattern $mMSG_CMSG_CLOEXEC :: forall {r}. MsgFlags -> ((# #) -> r) -> ((# #) -> r) -> r
$bMSG_CMSG_CLOEXEC :: MsgFlags
MSG_CMSG_CLOEXEC = MsgFlags (1073741824)
{-# LINE 112 "src/Netw/Internal/Enum.hsc" #-}
pattern MSG_ERRQUEUE     = MsgFlags (8192)
{-# LINE 113 "src/Netw/Internal/Enum.hsc" #-}

{-# LINE 114 "src/Netw/Internal/Enum.hsc" #-}

newtype ShutHow   = ShutHow CInt
pattern $mSHUT_RD :: forall {r}. ShutHow -> ((# #) -> r) -> ((# #) -> r) -> r
$bSHUT_RD :: ShutHow
SHUT_RD   = ShutHow 0
{-# LINE 117 "src/Netw/Internal/Enum.hsc" #-}
pattern SHUT_WR   = ShutHow 1
{-# LINE 118 "src/Netw/Internal/Enum.hsc" #-}
pattern SHUT_RDWR = ShutHow 2
{-# LINE 119 "src/Netw/Internal/Enum.hsc" #-}