{-# LINE 1 "Bindings/APR/Want.hsc" #-}

{-# LINE 2 "Bindings/APR/Want.hsc" #-}

{-# LINE 3 "Bindings/APR/Want.hsc" #-}

module Bindings.APR.Want where
import Foreign.Ptr (Ptr,FunPtr,plusPtr)
import Foreign.Ptr (wordPtrToPtr,castPtrToFunPtr)
import Foreign.Storable
import Foreign.C.Types
import Foreign.C.String (CString,CStringLen,CWString,CWStringLen)
import Foreign.Marshal.Alloc (alloca)
import Foreign.Marshal.Array (peekArray,pokeArray)
import Data.Int
import Data.Word

{-# LINE 6 "Bindings/APR/Want.hsc" #-}

data C'iovec = C'iovec{
{-# LINE 8 "Bindings/APR/Want.hsc" #-}

  c'iovec'iov_base :: Ptr CChar
{-# LINE 9 "Bindings/APR/Want.hsc" #-}
,
  c'iovec'iov_len :: CSize
{-# LINE 10 "Bindings/APR/Want.hsc" #-}

 } deriving (Eq,Show)
instance Storable C'iovec where
  sizeOf _ = 8
  alignment = sizeOf
  peek p = do
    v0 <- peekByteOff p 0
    v1 <- peekByteOff p 4
    return $ C'iovec v0 v1
  poke p (C'iovec v0 v1) = do
    pokeByteOff p 0 v0
    pokeByteOff p 4 v1
    return ()

{-# LINE 11 "Bindings/APR/Want.hsc" #-}