1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{-# LANGUAGE RankNTypes #-}
module Database.Persist.SqlBackend.Internal.Statement where
import Conduit
import Data.Acquire
import Data.Int
import Database.Persist.Types.Base
-- | A 'Statement' is a representation of a database query that has been
-- prepared and stored on the server side.
data Statement = Statement
{ stmtFinalize :: IO ()
, stmtReset :: IO ()
, stmtExecute :: [PersistValue] -> IO Int64
, stmtQuery
:: forall m
. (MonadIO m)
=> [PersistValue]
-> Acquire (ConduitM () [PersistValue] m ())
}
|
