hasql-1.10: src/library/Hasql/Pq/Ffi.hs

{-# LANGUAGE CApiFFI #-}

module Hasql.Pq.Ffi where

import Database.PostgreSQL.LibPQ.Internal
import Foreign.C.Types (CInt (..))
import Hasql.Platform.Prelude

foreign import capi "libpq-fe.h PQresultStatus"
  resultStatus :: Ptr () -> IO CInt

foreign import capi "libpq-fe.h PQpipelineStatus"
  pipelineStatus :: Ptr PGconn -> IO CInt

foreign import capi "libpq-fe.h PQenterPipelineMode"
  enterPipelineMode :: Ptr PGconn -> IO CInt

foreign import capi "libpq-fe.h PQexitPipelineMode"
  exitPipelineMode :: Ptr PGconn -> IO CInt

foreign import capi "libpq-fe.h PQpipelineSync"
  pipelineSync :: Ptr PGconn -> IO CInt

foreign import capi "libpq-fe.h PQsendFlushRequest"
  sendFlushRequest :: Ptr PGconn -> IO CInt