module Hasql.CursorTransaction.Private.Specs
where
import Hasql.CursorTransaction.Private.Prelude
import qualified Hasql.Encoders as A
import qualified Hasql.Decoders as B
newtype BatchSize =
BatchSize Int64
batchSize_10 :: BatchSize
batchSize_10 =
BatchSize 10
batchSize_100 :: BatchSize
batchSize_100 =
BatchSize 100
batchSize_1000 :: BatchSize
batchSize_1000 =
BatchSize 1000
batchSize_10000 :: BatchSize
batchSize_10000 =
BatchSize 10000
newtype EncodedParams =
EncodedParams (Supplied A.Params)
deriving (Monoid)
encodedParams :: A.Params params -> params -> EncodedParams
encodedParams encoder params =
EncodedParams (Supplied encoder params)