{-# LINE 1 "src/Posix/Struct/SocketAddressInternet/Peek.hsc" #-}
{-# language DataKinds #-}
module Posix.Struct.SocketAddressInternet.Peek
( family
, port
, address
) where
import Posix.Socket.Types (SocketAddressInternet,Family)
import Foreign.Ptr (Ptr)
import Foreign.Storable (peekByteOff)
import Data.Word (Word16,Word32)
import System.ByteOrder (Fixed,ByteOrder(BigEndian))
family :: Ptr SocketAddressInternet -> IO Family
family :: Ptr SocketAddressInternet -> IO Family
family = (\Ptr SocketAddressInternet
hsc_ptr -> forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr SocketAddressInternet
hsc_ptr Int
0)
{-# LINE 29 "src/Posix/Struct/SocketAddressInternet/Peek.hsc" #-}
port :: Ptr SocketAddressInternet -> IO (Fixed 'BigEndian Word16)
port :: Ptr SocketAddressInternet -> IO (Fixed 'BigEndian Word16)
port = (\Ptr SocketAddressInternet
hsc_ptr -> forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr SocketAddressInternet
hsc_ptr Int
2)
{-# LINE 33 "src/Posix/Struct/SocketAddressInternet/Peek.hsc" #-}
address :: Ptr SocketAddressInternet -> IO (Fixed 'BigEndian Word32)
address :: Ptr SocketAddressInternet -> IO (Fixed 'BigEndian Word32)
address = (\Ptr SocketAddressInternet
hsc_ptr -> forall a b. Storable a => Ptr b -> Int -> IO a
peekByteOff Ptr SocketAddressInternet
hsc_ptr Int
4)
{-# LINE 39 "src/Posix/Struct/SocketAddressInternet/Peek.hsc" #-}