{-# LINE 1 "Network/Socket/Msg/IOVec.hsc" #-}
-- This file was copied from network-bytestring package.
{-# LINE 2 "Network/Socket/Msg/IOVec.hsc" #-}
-- Original source: https://github.com/tibbe/network-bytestring/blob/master/Network/Socket/ByteString/IOVec.hsc
module Network.Socket.Msg.IOVec
  ( IOVec(..)
  ) where

import Foreign.C.Types (CChar, CInt, CSize)
import Foreign.Ptr (Ptr)
import Foreign.Storable (Storable(..))


{-# LINE 12 "Network/Socket/Msg/IOVec.hsc" #-}

data IOVec = IOVec
    { iovBase :: !(Ptr CChar)
    , iovLen :: !CSize
    } deriving (Show)

instance Storable IOVec where
  sizeOf _ = (16)
{-# LINE 20 "Network/Socket/Msg/IOVec.hsc" #-}
  alignment _ = alignment (undefined :: CInt)

  peek p = do
    base <- ((\hsc_ptr -> peekByteOff hsc_ptr 0)) p
{-# LINE 24 "Network/Socket/Msg/IOVec.hsc" #-}
    len <- ((\hsc_ptr -> peekByteOff hsc_ptr 8)) p
{-# LINE 25 "Network/Socket/Msg/IOVec.hsc" #-}
    return $! IOVec base len

  poke p iov = do
    ((\hsc_ptr -> pokeByteOff hsc_ptr 0)) p (iovBase iov)
{-# LINE 29 "Network/Socket/Msg/IOVec.hsc" #-}
    ((\hsc_ptr -> pokeByteOff hsc_ptr 8)) p (iovLen iov)
{-# LINE 30 "Network/Socket/Msg/IOVec.hsc" #-}