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

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

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

module Bindings.APR.Support 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/Support.hsc" #-}
import Bindings.APR.ErrNo
import Bindings.APR.File.Types
import Bindings.APR.Network.IO

foreign import ccall "apr_wait_for_io_or_timeout" c'apr_wait_for_io_or_timeout
  :: Ptr C'apr_file_t -> Ptr C'apr_socket_t -> CInt -> IO C'apr_status_t
foreign import ccall "&apr_wait_for_io_or_timeout" p'apr_wait_for_io_or_timeout
  :: FunPtr (Ptr C'apr_file_t -> Ptr C'apr_socket_t -> CInt -> IO C'apr_status_t)

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