module System.Socket.Internal.MsgFlags (
MsgFlags (..)
, msgEOR
, msgNOSIGNAL
, msgOOB
, msgWAITALL
) where
import Data.Bits
import Data.Monoid
import Foreign.C.Types
newtype MsgFlags
= MsgFlags CInt
deriving (Eq, Show)
instance Monoid MsgFlags where
mempty
= MsgFlags 0
mappend (MsgFlags a) (MsgFlags b)
= MsgFlags (a .|. b)
msgEOR :: MsgFlags
msgEOR = MsgFlags (128)
msgNOSIGNAL :: MsgFlags
msgNOSIGNAL = MsgFlags (16384)
msgOOB :: MsgFlags
msgOOB = MsgFlags (1)
msgWAITALL :: MsgFlags
msgWAITALL = MsgFlags (256)