{-# LANGUAGE CPP                  #-}
{-# LANGUAGE DataKinds            #-}
{-# LANGUAGE FlexibleInstances    #-}
{-# LANGUAGE OverloadedStrings    #-}
{-# LANGUAGE PatternSynonyms      #-}
{-# LANGUAGE TupleSections        #-}
{-# LANGUAGE TypeFamilies         #-}
{-# LANGUAGE TypeOperators        #-}
{-# LANGUAGE UndecidableInstances #-}

{-# OPTIONS_GHC -Wno-orphans #-}

#include "MachDeps.h"

module Database.PostgreSQL.Pure.Internal.Builder
  ( startup
  , password
  , terminate
  , query
  , parse
  , bind
  , execute
  , describePreparedStatement
  , describePortal
  , flush
  , sync
  , closePreparedStatement
  , closePortal
  ) where

import           Database.PostgreSQL.Pure.Internal.Data           (BindParameterFormatCodes (BindParameterFormatCodesAll, BindParameterFormatCodesAllDefault, BindParameterFormatCodesEach),
                                                                   BindResultFormatCodes (BindResultFormatCodesAllDefault, BindResultFormatCodesEach, BindResultFormatCodesNothing),
                                                                   FormatCode (BinaryFormat, TextFormat),
                                                                   GToRecord (gToRecord), Oid (Oid),
                                                                   PortalName (PortalName),
                                                                   PreparedStatementName (PreparedStatementName),
                                                                   Query (Query),
                                                                   TimeOfDayWithTimeZone (TimeOfDayWithTimeZone),
                                                                   ToField (toField), ToRecord (toRecord))
import           Database.PostgreSQL.Pure.Internal.Exception      (cantReachHere)
import qualified Database.PostgreSQL.Pure.Internal.MonadFail      as MonadFail
import qualified Database.PostgreSQL.Pure.Oid                     as Oid
import qualified Database.PostgreSQL.Simple.Time.Internal.Printer as Time

import           Control.Exception.Safe                           (assert)
import qualified Data.Bool                                        as B
import qualified Data.ByteString                                  as BS
import qualified Data.ByteString.Builder                          as BSB
import qualified Data.ByteString.Builder.Prim                     as BSBP
import qualified Data.ByteString.Lazy                             as BSL
import qualified Data.Double.Conversion.ByteString                as DC
import           Data.Fixed                                       (Fixed (MkFixed), HasResolution, Pico, resolution)
import           Data.Int                                         (Int16, Int32, Int64)
import qualified Data.Map.Strict                                  as M
import           Data.Scientific                                  (FPFormat (Exponent), Scientific, formatScientific,
                                                                   scientific)
import           Data.Time                                        (Day, DiffTime, NominalDiffTime, TimeOfDay, UTCTime)
import           Data.Time.LocalTime                              (LocalTime)
import           Data.Tuple.Single                                (Single, pattern Single)
import qualified GHC.Generics                                     as Generics
import qualified PostgreSQL.Binary.Encoding                       as BE

startup
  :: String -- ^ user name. ASCII text.
  -> String -- ^ database name. ASCII text.
  -> BSB.Builder
startup :: String -> String -> Builder
startup String
user String
database =
  let
    len :: Int
len =
      Int
4 -- length field
      Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
2 -- protocol major version
      Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
2 -- protocol minor version
      Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
5 -- "user\0"
      Int -> Int -> Int
forall a. Num a => a -> a -> a
+ String -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length String
user
      Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
1 -- '\0'
      Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
9 -- "database\0"
      Int -> Int -> Int
forall a. Num a => a -> a -> a
+ String -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length String
database
      Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
1 -- '\0'
      Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
1 -- '\0'
  in
    Int32 -> Builder
BSB.int32BE (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
len)
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> Int16 -> Builder
BSB.int16BE Int16
3 -- protocol major version
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> Int16 -> Builder
BSB.int16BE Int16
0 -- protocol minor version
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> String -> Builder
BSB.string7 String
"user\0"
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> String -> Builder
BSB.string7 String
user
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> Char -> Builder
BSB.char7 Char
'\0'
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> String -> Builder
BSB.string7 String
"database\0" Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> String -> Builder
BSB.string7 String
database Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> Char -> Builder
BSB.char7 Char
'\0'
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> Char -> Builder
BSB.char7 Char
'\0'

password
  :: BS.ByteString -- ^ password, which may be hashed. ASCII text.
  -> BSB.Builder
password :: ByteString -> Builder
password ByteString
password =
  let
    len :: Int
len = Int
4 Int -> Int -> Int
forall a. Num a => a -> a -> a
+ ByteString -> Int
BS.length ByteString
password Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
1
  in
    Char -> Builder
BSB.char7 Char
'p'
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> Int32 -> Builder
BSB.int32BE (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
len)
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> ByteString -> Builder
BSB.byteString ByteString
password
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> Char -> Builder
BSB.char7 Char
'\0'

query :: Query -> BSB.Builder
query :: Query -> Builder
query (Query ByteString
q) =
  let
    len :: Int
len = Int
4 Int -> Int -> Int
forall a. Num a => a -> a -> a
+ ByteString -> Int
BS.length ByteString
q Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
1
  in
    Char -> Builder
BSB.char7 Char
'Q'
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> Int32 -> Builder
BSB.int32BE (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
len)
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> ByteString -> Builder
BSB.byteString ByteString
q
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> Char -> Builder
BSB.char7 Char
'\0'

terminate :: BS.ByteString
terminate :: ByteString
terminate = [Word8] -> ByteString
BS.pack [Word8
0x58, Word8
0, Word8
0, Word8
0, Word8
4]

parse
  :: PreparedStatementName
  -> Query
  -> [Oid] -- ^ OIDs of data types of parameters
  -> BSB.Builder
parse :: PreparedStatementName -> Query -> [Oid] -> Builder
parse (PreparedStatementName ByteString
name) (Query ByteString
q) [Oid]
oids =
  let
    len :: Int
len = Int
4 Int -> Int -> Int
forall a. Num a => a -> a -> a
+ ByteString -> Int
BS.length ByteString
name Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
1 Int -> Int -> Int
forall a. Num a => a -> a -> a
+ ByteString -> Int
BS.length ByteString
q Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
1 Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
2 Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
noids Int -> Int -> Int
forall a. Num a => a -> a -> a
* Int
4
    noids :: Int
noids = [Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
oids
  in
    Char -> Builder
BSB.char7 Char
'P'
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> Int32 -> Builder
BSB.int32BE (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
len)
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> ByteString -> Builder
BSB.byteString ByteString
name
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> Char -> Builder
BSB.char7 Char
'\0'
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> ByteString -> Builder
BSB.byteString ByteString
q
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> Char -> Builder
BSB.char7 Char
'\0'
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> Int16 -> Builder
BSB.int16BE (Int -> Int16
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
noids)
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> [Builder] -> Builder
forall a. Monoid a => [a] -> a
mconcat (Int32 -> Builder
BSB.int32BE (Int32 -> Builder) -> (Oid -> Int32) -> Oid -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (\(Oid Int32
n) -> Int32
n) (Oid -> Builder) -> [Oid] -> [Builder]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> [Oid]
oids)

bind
  :: PortalName
  -> PreparedStatementName
  -> BindParameterFormatCodes
  -> [Maybe BS.ByteString]
  -> BindResultFormatCodes
  -> BSB.Builder
bind :: PortalName
-> PreparedStatementName
-> BindParameterFormatCodes
-> [Maybe ByteString]
-> BindResultFormatCodes
-> Builder
bind (PortalName ByteString
portalName) (PreparedStatementName ByteString
preparedStatementName) BindParameterFormatCodes
parameterFormatCodes [Maybe ByteString]
parameters BindResultFormatCodes
resultFormatCodes =
  let
    len :: Int
len =
      Int
4 -- length field
      Int -> Int -> Int
forall a. Num a => a -> a -> a
+ ByteString -> Int
BS.length ByteString
portalName
      Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
1 -- '\0'
      Int -> Int -> Int
forall a. Num a => a -> a -> a
+ ByteString -> Int
BS.length ByteString
preparedStatementName
      Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
1 -- '\0'
      Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
2 -- the number of parameter format codes
      Int -> Int -> Int
forall a. Num a => a -> a -> a
+ ( case BindParameterFormatCodes
parameterFormatCodes of -- format codes
            BindParameterFormatCodes
BindParameterFormatCodesAllDefault -> Int
0
            BindParameterFormatCodesAll FormatCode
_      -> Int
2
            BindParameterFormatCodesEach [FormatCode]
cs    -> Int
2 Int -> Int -> Int
forall a. Num a => a -> a -> a
* [FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
cs
        )
      Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
2 -- the number of parameters
      Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
4 Int -> Int -> Int
forall a. Num a => a -> a -> a
* [Maybe ByteString] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Maybe ByteString]
parameters -- length field of each parameters
      Int -> Int -> Int
forall a. Num a => a -> a -> a
+ [Int] -> Int
forall (t :: * -> *) a. (Foldable t, Num a) => t a -> a
sum (Int -> (ByteString -> Int) -> Maybe ByteString -> Int
forall b a. b -> (a -> b) -> Maybe a -> b
maybe Int
0 ByteString -> Int
BS.length (Maybe ByteString -> Int) -> [Maybe ByteString] -> [Int]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> [Maybe ByteString]
parameters) -- parameters themselves
      Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
2 -- the number of result format codes
      Int -> Int -> Int
forall a. Num a => a -> a -> a
+ ( case BindResultFormatCodes
resultFormatCodes of -- format codes
            BindResultFormatCodes
BindResultFormatCodesNothing    -> Int
0
            BindResultFormatCodes
BindResultFormatCodesAllDefault -> Int
0
            BindResultFormatCodesEach [FormatCode]
cs    -> Int
2 Int -> Int -> Int
forall a. Num a => a -> a -> a
* [FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
cs
        )
  in
    Char -> Builder
BSB.char7 Char
'B'
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> Int32 -> Builder
BSB.int32BE (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
len)
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> ByteString -> Builder
BSB.byteString ByteString
portalName
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> Char -> Builder
BSB.char7 Char
'\0'
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> ByteString -> Builder
BSB.byteString ByteString
preparedStatementName
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> Char -> Builder
BSB.char7 Char
'\0'
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> ( case BindParameterFormatCodes
parameterFormatCodes of
           BindParameterFormatCodes
BindParameterFormatCodesAllDefault -> Int16 -> Builder
BSB.int16BE Int16
0
           BindParameterFormatCodesAll FormatCode
c -> Int16 -> Builder
BSB.int16BE Int16
1 Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> Int16 -> Builder
BSB.int16BE (Int -> Int16
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> Int16) -> Int -> Int16
forall a b. (a -> b) -> a -> b
$ FormatCode -> Int
forall a. Enum a => a -> Int
fromEnum FormatCode
c)
           BindParameterFormatCodesEach [FormatCode]
cs -> Int16 -> Builder
BSB.int16BE (Int -> Int16
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> Int16) -> Int -> Int16
forall a b. (a -> b) -> a -> b
$ [FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
cs) Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> [Builder] -> Builder
forall a. Monoid a => [a] -> a
mconcat (Int16 -> Builder
BSB.int16BE (Int16 -> Builder)
-> (FormatCode -> Int16) -> FormatCode -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Int -> Int16
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> Int16) -> (FormatCode -> Int) -> FormatCode -> Int16
forall b c a. (b -> c) -> (a -> b) -> a -> c
. FormatCode -> Int
forall a. Enum a => a -> Int
fromEnum (FormatCode -> Builder) -> [FormatCode] -> [Builder]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> [FormatCode]
cs)
       )
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> Int16 -> Builder
BSB.int16BE (Int -> Int16
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> Int16) -> Int -> Int16
forall a b. (a -> b) -> a -> b
$ [Maybe ByteString] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Maybe ByteString]
parameters)
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> [Builder] -> Builder
forall a. Monoid a => [a] -> a
mconcat
         ( ( \Maybe ByteString
p ->
               case Maybe ByteString
p of
                 Just ByteString
bs -> Int32 -> Builder
BSB.int32BE (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> Int32) -> Int -> Int32
forall a b. (a -> b) -> a -> b
$ ByteString -> Int
BS.length ByteString
bs) Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> ByteString -> Builder
BSB.byteString ByteString
bs
                 Maybe ByteString
Nothing -> Int32 -> Builder
BSB.int32BE (-Int32
1)
           ) (Maybe ByteString -> Builder) -> [Maybe ByteString] -> [Builder]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> [Maybe ByteString]
parameters
         )
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> ( case BindResultFormatCodes
resultFormatCodes of
           BindResultFormatCodes
BindResultFormatCodesNothing -> Int16 -> Builder
BSB.int16BE Int16
0
           BindResultFormatCodes
BindResultFormatCodesAllDefault -> Int16 -> Builder
BSB.int16BE Int16
1
           BindResultFormatCodesEach [FormatCode]
cs -> Int16 -> Builder
BSB.int16BE (Int -> Int16
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> Int16) -> Int -> Int16
forall a b. (a -> b) -> a -> b
$ [FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
cs) Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> [Builder] -> Builder
forall a. Monoid a => [a] -> a
mconcat (Int16 -> Builder
BSB.int16BE (Int16 -> Builder)
-> (FormatCode -> Int16) -> FormatCode -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Int -> Int16
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> Int16) -> (FormatCode -> Int) -> FormatCode -> Int16
forall b c a. (b -> c) -> (a -> b) -> a -> c
. FormatCode -> Int
forall a. Enum a => a -> Int
fromEnum (FormatCode -> Builder) -> [FormatCode] -> [Builder]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> [FormatCode]
cs)
       )

execute
  :: PortalName
  -> Int -- ^ limit of the number of rows
  -> BSB.Builder
execute :: PortalName -> Int -> Builder
execute (PortalName ByteString
name) Int
limitRows =
  let
    len :: Int
len = Int
4 Int -> Int -> Int
forall a. Num a => a -> a -> a
+ ByteString -> Int
BS.length ByteString
name Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
1 Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
4
  in
    Char -> Builder
BSB.char7 Char
'E'
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> Int32 -> Builder
BSB.int32BE (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
len)
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> ByteString -> Builder
BSB.byteString ByteString
name
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> Char -> Builder
BSB.char7 Char
'\0'
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> Int32 -> Builder
BSB.int32BE (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
limitRows)

flush :: BS.ByteString
flush :: ByteString
flush = [Word8] -> ByteString
BS.pack [Word8
0x48, Word8
0, Word8
0, Word8
0, Word8
4]

sync :: BS.ByteString
sync :: ByteString
sync = [Word8] -> ByteString
BS.pack [Word8
0x53, Word8
0, Word8
0, Word8
0, Word8
4]

describePreparedStatement :: PreparedStatementName -> BSB.Builder
describePreparedStatement :: PreparedStatementName -> Builder
describePreparedStatement (PreparedStatementName ByteString
name) = Char -> ByteString -> Builder
doDescribe Char
'S' ByteString
name

closePreparedStatement :: PreparedStatementName -> BSB.Builder
closePreparedStatement :: PreparedStatementName -> Builder
closePreparedStatement (PreparedStatementName ByteString
name) = Char -> ByteString -> Builder
doClose Char
'S' ByteString
name

describePortal :: PortalName -> BSB.Builder
describePortal :: PortalName -> Builder
describePortal (PortalName ByteString
name) = Char -> ByteString -> Builder
doDescribe Char
'P' ByteString
name

closePortal :: PortalName -> BSB.Builder
closePortal :: PortalName -> Builder
closePortal (PortalName ByteString
name) = Char -> ByteString -> Builder
doClose Char
'P' ByteString
name

doDescribe :: Char -> BS.ByteString -> BSB.Builder
doDescribe :: Char -> ByteString -> Builder
doDescribe Char
typ ByteString
name =
  let
    len :: Int
len = Int
4 Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
1 Int -> Int -> Int
forall a. Num a => a -> a -> a
+ ByteString -> Int
BS.length ByteString
name Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
1
  in
    Char -> Builder
BSB.char7 Char
'D'
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> Int32 -> Builder
BSB.int32BE (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
len)
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> Char -> Builder
BSB.char7 Char
typ
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> ByteString -> Builder
BSB.byteString ByteString
name
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> Char -> Builder
BSB.char7 Char
'\0'

doClose :: Char -> BS.ByteString -> BSB.Builder
doClose :: Char -> ByteString -> Builder
doClose Char
typ ByteString
name =
  let
    len :: Int
len = Int
4 Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
1 Int -> Int -> Int
forall a. Num a => a -> a -> a
+ ByteString -> Int
BS.length ByteString
name Int -> Int -> Int
forall a. Num a => a -> a -> a
+ Int
1
  in
    Char -> Builder
BSB.char7 Char
'C'
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> Int32 -> Builder
BSB.int32BE (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
len)
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> Char -> Builder
BSB.char7 Char
typ
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> ByteString -> Builder
BSB.byteString ByteString
name
    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
<> Char -> Builder
BSB.char7 Char
'\0'

instance ToField () where
  toField :: BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> ()
-> m (Maybe ByteString)
toField BackendParameters
_ StringEncoder
_ Maybe Oid
_ FormatCode
_ ()
_ = String -> m (Maybe ByteString)
forall (m :: * -> *) a. MonadFail m => String -> m a
fail String
"no values for units"

instance ToField Bool where
  toField :: BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> Bool
-> m (Maybe ByteString)
toField BackendParameters
_ StringEncoder
_ Maybe Oid
Nothing FormatCode
TextFormat = Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> (Bool -> Maybe ByteString) -> Bool -> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> (Bool -> ByteString) -> Bool -> Maybe ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> ByteString -> Bool -> ByteString
forall a. a -> a -> Bool -> a
B.bool ByteString
"TRUE" ByteString
"FALSE"
  toField BackendParameters
_ StringEncoder
_ Maybe Oid
Nothing FormatCode
BinaryFormat = Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> (Bool -> Maybe ByteString) -> Bool -> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> (Bool -> ByteString) -> Bool -> Maybe ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Encoding -> ByteString
BE.encodingBytes (Encoding -> ByteString)
-> (Bool -> Encoding) -> Bool -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Encoding
BE.bool
  toField BackendParameters
backendParams StringEncoder
encode (Just Oid
o) FormatCode
f | Oid
o Oid -> Oid -> Bool
forall a. Eq a => a -> a -> Bool
== Oid
Oid.bool = BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> Bool
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f
                                          | Bool
otherwise = m (Maybe ByteString) -> Bool -> m (Maybe ByteString)
forall a b. a -> b -> a
const (m (Maybe ByteString) -> Bool -> m (Maybe ByteString))
-> m (Maybe ByteString) -> Bool -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String -> m (Maybe ByteString)
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m (Maybe ByteString)) -> String -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String
"type mismatch (ToField): OID: " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Oid -> String
forall a. Show a => a -> String
show Oid
o String -> String -> String
forall a. Semigroup a => a -> a -> a
<> String
", Haskell: Bool"

instance ToField Int where
#if WORD_SIZE_IN_BITS > 64
  toField _ _ _ _ _ = fail "the Int's size is too large, larger then 64 bits"
#else
  toField :: BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> Int
-> m (Maybe ByteString)
toField BackendParameters
_ StringEncoder
_ Maybe Oid
Nothing FormatCode
TextFormat = Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> (Int -> Maybe ByteString) -> Int -> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just(ByteString -> Maybe ByteString)
-> (Int -> ByteString) -> Int -> Maybe ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> ByteString
BSL.toStrict (ByteString -> ByteString)
-> (Int -> ByteString) -> Int -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Builder -> ByteString
BSB.toLazyByteString (Builder -> ByteString) -> (Int -> Builder) -> Int -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Int -> Builder
BSB.intDec
#if WORD_SIZE_IN_BITS > 32
  toField BackendParameters
_ StringEncoder
_ Maybe Oid
Nothing FormatCode
BinaryFormat = Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> (Int -> Maybe ByteString) -> Int -> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> (Int -> ByteString) -> Int -> Maybe ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Encoding -> ByteString
BE.encodingBytes (Encoding -> ByteString) -> (Int -> Encoding) -> Int -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Int64 -> Encoding
BE.int8_int64 (Int64 -> Encoding) -> (Int -> Int64) -> Int -> Encoding
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Int -> Int64
forall a b. (Integral a, Num b) => a -> b
fromIntegral
  toField BackendParameters
backendParams StringEncoder
encode (Just Oid
o) FormatCode
TextFormat | Oid
o Oid -> Oid -> Bool
forall a. Eq a => a -> a -> Bool
== Oid
Oid.int8 = BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> Int
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
TextFormat
  toField BackendParameters
backendParams StringEncoder
encode (Just Oid
o) FormatCode
BinaryFormat | Oid
o Oid -> Oid -> Bool
forall a. Eq a => a -> a -> Bool
== Oid
Oid.int8 = BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> Int
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
BinaryFormat
#else /* the width of Int is wider than 30 bits */
  toField _ _ Nothing BinaryFormat = pure . Just . BE.encodingBytes . BE.int4_int32 . fromIntegral
  toField backendParams encode (Just o) TextFormat | o `elem` [Oid.int4, Oid.int8] = toField backendParams encode Nothing TextFormat
  toField backendParams encode (Just o) BinaryFormat | o == Oid.int4 = toField backendParams encode Nothing BinaryFormat
                                                     | o == Oid.int8 = pure . Just . BE.encodingBytes . BE.int8_int64 . fromIntegral
#endif
  toField BackendParameters
_ StringEncoder
_ (Just Oid
o) FormatCode
_ = m (Maybe ByteString) -> Int -> m (Maybe ByteString)
forall a b. a -> b -> a
const (m (Maybe ByteString) -> Int -> m (Maybe ByteString))
-> m (Maybe ByteString) -> Int -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String -> m (Maybe ByteString)
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m (Maybe ByteString)) -> String -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String
"type mismatch (ToField): OID: " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Oid -> String
forall a. Show a => a -> String
show Oid
o String -> String -> String
forall a. Semigroup a => a -> a -> a
<> String
", Haskell: Int"
#endif

instance ToField Int16 where
  toField :: BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> Int16
-> m (Maybe ByteString)
toField BackendParameters
_ StringEncoder
_ Maybe Oid
Nothing FormatCode
TextFormat = Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> (Int16 -> Maybe ByteString) -> Int16 -> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> (Int16 -> ByteString) -> Int16 -> Maybe ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> ByteString
BSL.toStrict (ByteString -> ByteString)
-> (Int16 -> ByteString) -> Int16 -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Builder -> ByteString
BSB.toLazyByteString (Builder -> ByteString)
-> (Int16 -> Builder) -> Int16 -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Int16 -> Builder
BSB.int16Dec
  toField BackendParameters
_ StringEncoder
_ Maybe Oid
Nothing FormatCode
BinaryFormat = Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> (Int16 -> Maybe ByteString) -> Int16 -> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> (Int16 -> ByteString) -> Int16 -> Maybe ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Encoding -> ByteString
BE.encodingBytes (Encoding -> ByteString)
-> (Int16 -> Encoding) -> Int16 -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Int16 -> Encoding
BE.int2_int16
  toField BackendParameters
backendParams StringEncoder
encode (Just Oid
o) FormatCode
f | Oid
o Oid -> Oid -> Bool
forall a. Eq a => a -> a -> Bool
== Oid
Oid.int2 = BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> Int16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f
                                          | Bool
otherwise = m (Maybe ByteString) -> Int16 -> m (Maybe ByteString)
forall a b. a -> b -> a
const (m (Maybe ByteString) -> Int16 -> m (Maybe ByteString))
-> m (Maybe ByteString) -> Int16 -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String -> m (Maybe ByteString)
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m (Maybe ByteString)) -> String -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String
"type mismatch (ToField): OID: " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Oid -> String
forall a. Show a => a -> String
show Oid
o String -> String -> String
forall a. Semigroup a => a -> a -> a
<> String
", Haskell: Int16"

instance ToField Int32 where
  toField :: BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> Int32
-> m (Maybe ByteString)
toField BackendParameters
_ StringEncoder
_ Maybe Oid
Nothing FormatCode
TextFormat = Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> (Int32 -> Maybe ByteString) -> Int32 -> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> (Int32 -> ByteString) -> Int32 -> Maybe ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> ByteString
BSL.toStrict (ByteString -> ByteString)
-> (Int32 -> ByteString) -> Int32 -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Builder -> ByteString
BSB.toLazyByteString (Builder -> ByteString)
-> (Int32 -> Builder) -> Int32 -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Int32 -> Builder
BSB.int32Dec
  toField BackendParameters
_ StringEncoder
_ Maybe Oid
Nothing FormatCode
BinaryFormat = Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> (Int32 -> Maybe ByteString) -> Int32 -> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> (Int32 -> ByteString) -> Int32 -> Maybe ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Encoding -> ByteString
BE.encodingBytes (Encoding -> ByteString)
-> (Int32 -> Encoding) -> Int32 -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Int32 -> Encoding
BE.int4_int32
  toField BackendParameters
backendParams StringEncoder
encode (Just Oid
o) FormatCode
TextFormat | Oid
o Oid -> [Oid] -> Bool
forall (t :: * -> *) a. (Foldable t, Eq a) => a -> t a -> Bool
`elem` [Oid
Oid.int4, Oid
Oid.int8] = BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> Int32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
TextFormat
  toField BackendParameters
backendParams StringEncoder
encode (Just Oid
o) FormatCode
BinaryFormat | Oid
o Oid -> Oid -> Bool
forall a. Eq a => a -> a -> Bool
== Oid
Oid.int4 = BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> Int32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
BinaryFormat
                                                     | Oid
o Oid -> Oid -> Bool
forall a. Eq a => a -> a -> Bool
== Oid
Oid.int8 = Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> (Int32 -> Maybe ByteString) -> Int32 -> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> (Int32 -> ByteString) -> Int32 -> Maybe ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Encoding -> ByteString
BE.encodingBytes (Encoding -> ByteString)
-> (Int32 -> Encoding) -> Int32 -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Int64 -> Encoding
BE.int8_int64 (Int64 -> Encoding) -> (Int32 -> Int64) -> Int32 -> Encoding
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Int32 -> Int64
forall a b. (Integral a, Num b) => a -> b
fromIntegral
  toField BackendParameters
_ StringEncoder
_ (Just Oid
o) FormatCode
_ = m (Maybe ByteString) -> Int32 -> m (Maybe ByteString)
forall a b. a -> b -> a
const (m (Maybe ByteString) -> Int32 -> m (Maybe ByteString))
-> m (Maybe ByteString) -> Int32 -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String -> m (Maybe ByteString)
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m (Maybe ByteString)) -> String -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String
"type mismatch (ToField): OID: " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Oid -> String
forall a. Show a => a -> String
show Oid
o String -> String -> String
forall a. Semigroup a => a -> a -> a
<> String
", Haskell: Int32"

instance ToField Int64 where
  toField :: BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> Int64
-> m (Maybe ByteString)
toField BackendParameters
_ StringEncoder
_ Maybe Oid
Nothing FormatCode
TextFormat = Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> (Int64 -> Maybe ByteString) -> Int64 -> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> (Int64 -> ByteString) -> Int64 -> Maybe ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> ByteString
BSL.toStrict (ByteString -> ByteString)
-> (Int64 -> ByteString) -> Int64 -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Builder -> ByteString
BSB.toLazyByteString (Builder -> ByteString)
-> (Int64 -> Builder) -> Int64 -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Int64 -> Builder
BSB.int64Dec
  toField BackendParameters
_ StringEncoder
_ Maybe Oid
Nothing FormatCode
BinaryFormat = Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> (Int64 -> Maybe ByteString) -> Int64 -> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> (Int64 -> ByteString) -> Int64 -> Maybe ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Encoding -> ByteString
BE.encodingBytes (Encoding -> ByteString)
-> (Int64 -> Encoding) -> Int64 -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Int64 -> Encoding
BE.int8_int64
  toField BackendParameters
backendParams StringEncoder
encode (Just Oid
o) FormatCode
f | Oid
o Oid -> Oid -> Bool
forall a. Eq a => a -> a -> Bool
== Oid
Oid.int8 = BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> Int64
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f
                                          | Bool
otherwise = m (Maybe ByteString) -> Int64 -> m (Maybe ByteString)
forall a b. a -> b -> a
const (m (Maybe ByteString) -> Int64 -> m (Maybe ByteString))
-> m (Maybe ByteString) -> Int64 -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String -> m (Maybe ByteString)
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m (Maybe ByteString)) -> String -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String
"type mismatch (ToField): OID: " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Oid -> String
forall a. Show a => a -> String
show Oid
o String -> String -> String
forall a. Semigroup a => a -> a -> a
<> String
", Haskell: Int64"

instance ToField Float where
  toField :: BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> Float
-> m (Maybe ByteString)
toField BackendParameters
_ StringEncoder
_ Maybe Oid
Nothing FormatCode
TextFormat = Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> (Float -> Maybe ByteString) -> Float -> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> (Float -> ByteString) -> Float -> Maybe ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Double -> ByteString
DC.toShortest (Double -> ByteString) -> (Float -> Double) -> Float -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Float -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac
  toField BackendParameters
_ StringEncoder
_ Maybe Oid
Nothing FormatCode
BinaryFormat = Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> (Float -> Maybe ByteString) -> Float -> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> (Float -> ByteString) -> Float -> Maybe ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Encoding -> ByteString
BE.encodingBytes (Encoding -> ByteString)
-> (Float -> Encoding) -> Float -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Float -> Encoding
BE.float4
  toField BackendParameters
backendParams StringEncoder
encode (Just Oid
o) FormatCode
TextFormat | Oid
o Oid -> [Oid] -> Bool
forall (t :: * -> *) a. (Foldable t, Eq a) => a -> t a -> Bool
`elem` [Oid
Oid.float4, Oid
Oid.float8] = BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> Float
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
TextFormat
  toField BackendParameters
backendParams StringEncoder
encode (Just Oid
o) FormatCode
BinaryFormat | Oid
o Oid -> Oid -> Bool
forall a. Eq a => a -> a -> Bool
== Oid
Oid.float4 = BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> Float
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
BinaryFormat
                                                     | Oid
o Oid -> Oid -> Bool
forall a. Eq a => a -> a -> Bool
== Oid
Oid.float8 = Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> (Float -> Maybe ByteString) -> Float -> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> (Float -> ByteString) -> Float -> Maybe ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Encoding -> ByteString
BE.encodingBytes (Encoding -> ByteString)
-> (Float -> Encoding) -> Float -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Double -> Encoding
BE.float8 (Double -> Encoding) -> (Float -> Double) -> Float -> Encoding
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Float -> Double
forall a b. (Real a, Fractional b) => a -> b
realToFrac
  toField BackendParameters
_ StringEncoder
_ (Just Oid
o) FormatCode
_ = m (Maybe ByteString) -> Float -> m (Maybe ByteString)
forall a b. a -> b -> a
const (m (Maybe ByteString) -> Float -> m (Maybe ByteString))
-> m (Maybe ByteString) -> Float -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String -> m (Maybe ByteString)
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m (Maybe ByteString)) -> String -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String
"type mismatch (ToField): OID: " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Oid -> String
forall a. Show a => a -> String
show Oid
o String -> String -> String
forall a. Semigroup a => a -> a -> a
<> String
", Haskell: Float"

instance ToField Double where
  toField :: BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> Double
-> m (Maybe ByteString)
toField BackendParameters
_ StringEncoder
_ Maybe Oid
Nothing FormatCode
TextFormat = Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> (Double -> Maybe ByteString) -> Double -> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> (Double -> ByteString) -> Double -> Maybe ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Double -> ByteString
DC.toShortest
  toField BackendParameters
_ StringEncoder
_ Maybe Oid
Nothing FormatCode
BinaryFormat = Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> (Double -> Maybe ByteString) -> Double -> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> (Double -> ByteString) -> Double -> Maybe ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Encoding -> ByteString
BE.encodingBytes (Encoding -> ByteString)
-> (Double -> Encoding) -> Double -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Double -> Encoding
BE.float8
  toField BackendParameters
backendParams StringEncoder
encode (Just Oid
o) FormatCode
f | Oid
o Oid -> Oid -> Bool
forall a. Eq a => a -> a -> Bool
== Oid
Oid.float8 = BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> Double
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f
                                          | Bool
otherwise = m (Maybe ByteString) -> Double -> m (Maybe ByteString)
forall a b. a -> b -> a
const (m (Maybe ByteString) -> Double -> m (Maybe ByteString))
-> m (Maybe ByteString) -> Double -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String -> m (Maybe ByteString)
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m (Maybe ByteString)) -> String -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String
"type mismatch (ToField): OID: " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Oid -> String
forall a. Show a => a -> String
show Oid
o String -> String -> String
forall a. Semigroup a => a -> a -> a
<> String
", Haskell: Double"

instance ToField Scientific where
  toField :: BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> Scientific
-> m (Maybe ByteString)
toField BackendParameters
_ StringEncoder
encode Maybe Oid
Nothing FormatCode
TextFormat = (ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> m ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$>) (m ByteString -> m (Maybe ByteString))
-> (Scientific -> m ByteString)
-> Scientific
-> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Either String ByteString -> m ByteString
forall (m :: * -> *) a. MonadFail m => Either String a -> m a
MonadFail.fromEither (Either String ByteString -> m ByteString)
-> (Scientific -> Either String ByteString)
-> Scientific
-> m ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. StringEncoder
encode StringEncoder
-> (Scientific -> String) -> Scientific -> Either String ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. FPFormat -> Maybe Int -> Scientific -> String
formatScientific FPFormat
Exponent Maybe Int
forall a. Maybe a
Nothing
  toField BackendParameters
_ StringEncoder
_ Maybe Oid
Nothing FormatCode
BinaryFormat = Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> (Scientific -> Maybe ByteString)
-> Scientific
-> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> (Scientific -> ByteString) -> Scientific -> Maybe ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Encoding -> ByteString
BE.encodingBytes (Encoding -> ByteString)
-> (Scientific -> Encoding) -> Scientific -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Scientific -> Encoding
BE.numeric
  toField BackendParameters
backendParams StringEncoder
encode (Just Oid
o) FormatCode
f | Oid
o Oid -> Oid -> Bool
forall a. Eq a => a -> a -> Bool
== Oid
Oid.numeric = BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> Scientific
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f
                                          | Bool
otherwise = m (Maybe ByteString) -> Scientific -> m (Maybe ByteString)
forall a b. a -> b -> a
const (m (Maybe ByteString) -> Scientific -> m (Maybe ByteString))
-> m (Maybe ByteString) -> Scientific -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String -> m (Maybe ByteString)
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m (Maybe ByteString)) -> String -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String
"type mismatch (ToField): OID: " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Oid -> String
forall a. Show a => a -> String
show Oid
o String -> String -> String
forall a. Semigroup a => a -> a -> a
<> String
", Haskell: Scientific"

instance HasResolution a => ToField (Fixed a) where
  toField :: BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> Fixed a
-> m (Maybe ByteString)
toField BackendParameters
_ StringEncoder
encode Maybe Oid
Nothing FormatCode
TextFormat Fixed a
v = ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> m ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Either String ByteString -> m ByteString
forall (m :: * -> *) a. MonadFail m => Either String a -> m a
MonadFail.fromEither (StringEncoder
encode (Fixed a -> String
forall a. Show a => a -> String
show Fixed a
v)) -- XXX maybe slow
  toField BackendParameters
_ StringEncoder
_ Maybe Oid
Nothing FormatCode
BinaryFormat v :: Fixed a
v@(MkFixed Integer
i) = Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> Maybe ByteString -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString) -> ByteString -> Maybe ByteString
forall a b. (a -> b) -> a -> b
$ Encoding -> ByteString
BE.encodingBytes (Encoding -> ByteString) -> Encoding -> ByteString
forall a b. (a -> b) -> a -> b
$ Scientific -> Encoding
BE.numeric (Scientific -> Encoding) -> Scientific -> Encoding
forall a b. (a -> b) -> a -> b
$ Integer -> Int -> Scientific
scientific Integer
i (Integer -> Int
forall a. Num a => Integer -> a
fromInteger (Integer -> Int) -> Integer -> Int
forall a b. (a -> b) -> a -> b
$ Fixed a -> Integer
forall k (a :: k) (p :: k -> *). HasResolution a => p a -> Integer
resolution Fixed a
v)
  toField BackendParameters
backendParams StringEncoder
encode (Just Oid
o) FormatCode
f Fixed a
v | Oid
o Oid -> Oid -> Bool
forall a. Eq a => a -> a -> Bool
== Oid
Oid.numeric = BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> Fixed a
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f Fixed a
v
                                            | Bool
otherwise = String -> m (Maybe ByteString)
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m (Maybe ByteString)) -> String -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String
"type mismatch (ToField): OID: " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Oid -> String
forall a. Show a => a -> String
show Oid
o String -> String -> String
forall a. Semigroup a => a -> a -> a
<> String
", Haskell: Fixed a (" String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Integer -> String
forall a. Show a => a -> String
show (Fixed a -> Integer
forall k (a :: k) (p :: k -> *). HasResolution a => p a -> Integer
resolution Fixed a
v) String -> String -> String
forall a. Semigroup a => a -> a -> a
<> String
")"

instance ToField Char where
  toField :: BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> Char
-> m (Maybe ByteString)
toField BackendParameters
_ StringEncoder
encode Maybe Oid
Nothing FormatCode
_ Char
v = ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> m ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Either String ByteString -> m ByteString
forall (m :: * -> *) a. MonadFail m => Either String a -> m a
MonadFail.fromEither (StringEncoder
encode [Char
v])
  toField BackendParameters
backendParams StringEncoder
encode (Just Oid
o) FormatCode
f Char
v | Oid
o Oid -> Oid -> Bool
forall a. Eq a => a -> a -> Bool
== Oid
Oid.char = BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> Char
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f Char
v
                                            | Bool
otherwise = String -> m (Maybe ByteString)
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m (Maybe ByteString)) -> String -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String
"type mismatch (ToField): OID: " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Oid -> String
forall a. Show a => a -> String
show Oid
o String -> String -> String
forall a. Semigroup a => a -> a -> a
<> String
", Haskell: Char"

instance ToField String where
  toField :: BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> String
-> m (Maybe ByteString)
toField BackendParameters
_ StringEncoder
encode Maybe Oid
Nothing FormatCode
_ = (ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> m ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$>) (m ByteString -> m (Maybe ByteString))
-> (String -> m ByteString) -> String -> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Either String ByteString -> m ByteString
forall (m :: * -> *) a. MonadFail m => Either String a -> m a
MonadFail.fromEither (Either String ByteString -> m ByteString)
-> StringEncoder -> String -> m ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. StringEncoder
encode
  toField BackendParameters
backendParams StringEncoder
encode (Just Oid
_) FormatCode
TextFormat = BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> String
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
TextFormat
  toField BackendParameters
backendParams StringEncoder
encode (Just Oid
o) FormatCode
BinaryFormat | Oid
o Oid -> [Oid] -> Bool
forall (t :: * -> *) a. (Foldable t, Eq a) => a -> t a -> Bool
`elem` [Oid
Oid.text, Oid
Oid.bpchar, Oid
Oid.varchar, Oid
Oid.name] = BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> String
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
BinaryFormat
                                                     | Bool
otherwise = m (Maybe ByteString) -> String -> m (Maybe ByteString)
forall a b. a -> b -> a
const (m (Maybe ByteString) -> String -> m (Maybe ByteString))
-> m (Maybe ByteString) -> String -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String -> m (Maybe ByteString)
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m (Maybe ByteString)) -> String -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String
"type mismatch (ToField): OID: " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Oid -> String
forall a. Show a => a -> String
show Oid
o String -> String -> String
forall a. Semigroup a => a -> a -> a
<> String
", Haskell: String"

instance ToField BS.ByteString where
  toField :: BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> ByteString
-> m (Maybe ByteString)
toField BackendParameters
_ StringEncoder
_ Maybe Oid
Nothing FormatCode
_ = Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> (ByteString -> Maybe ByteString)
-> ByteString
-> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just
  toField BackendParameters
backendParams StringEncoder
encode (Just Oid
o) FormatCode
f | Oid
o Oid -> [Oid] -> Bool
forall (t :: * -> *) a. (Foldable t, Eq a) => a -> t a -> Bool
`elem` [Oid
Oid.text, Oid
Oid.bpchar, Oid
Oid.varchar, Oid
Oid.name, Oid
Oid.bytea] = BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> ByteString
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f
                                          | Bool
otherwise = m (Maybe ByteString) -> ByteString -> m (Maybe ByteString)
forall a b. a -> b -> a
const (m (Maybe ByteString) -> ByteString -> m (Maybe ByteString))
-> m (Maybe ByteString) -> ByteString -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String -> m (Maybe ByteString)
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m (Maybe ByteString)) -> String -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String
"type mismatch (ToField): OID: " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Oid -> String
forall a. Show a => a -> String
show Oid
o String -> String -> String
forall a. Semigroup a => a -> a -> a
<> String
", Haskell: ByteString (strict)"

instance ToField Day where -- TODO infinity/-infinity
  toField :: BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> Day
-> m (Maybe ByteString)
toField BackendParameters
_ StringEncoder
_ Maybe Oid
Nothing FormatCode
TextFormat = Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> (Day -> Maybe ByteString) -> Day -> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> (Day -> ByteString) -> Day -> Maybe ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> ByteString
BSL.toStrict (ByteString -> ByteString)
-> (Day -> ByteString) -> Day -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Builder -> ByteString
BSB.toLazyByteString (Builder -> ByteString) -> (Day -> Builder) -> Day -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. BoundedPrim Day -> Day -> Builder
forall a. BoundedPrim a -> a -> Builder
BSBP.primBounded BoundedPrim Day
Time.day
  toField BackendParameters
_ StringEncoder
_ Maybe Oid
Nothing FormatCode
BinaryFormat = Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> (Day -> Maybe ByteString) -> Day -> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> (Day -> ByteString) -> Day -> Maybe ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Encoding -> ByteString
BE.encodingBytes (Encoding -> ByteString) -> (Day -> Encoding) -> Day -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Day -> Encoding
BE.date
  toField BackendParameters
backendParams StringEncoder
encode (Just Oid
o) FormatCode
f | Oid
o Oid -> Oid -> Bool
forall a. Eq a => a -> a -> Bool
== Oid
Oid.date = BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> Day
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f
                                          | Bool
otherwise = m (Maybe ByteString) -> Day -> m (Maybe ByteString)
forall a b. a -> b -> a
const (m (Maybe ByteString) -> Day -> m (Maybe ByteString))
-> m (Maybe ByteString) -> Day -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String -> m (Maybe ByteString)
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m (Maybe ByteString)) -> String -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String
"type mismatch (ToField): OID: " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Oid -> String
forall a. Show a => a -> String
show Oid
o String -> String -> String
forall a. Semigroup a => a -> a -> a
<> String
", Haskell: Day"

instance ToField TimeOfDay where
  toField :: BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> TimeOfDay
-> m (Maybe ByteString)
toField BackendParameters
_ StringEncoder
_ Maybe Oid
Nothing FormatCode
TextFormat = Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> (TimeOfDay -> Maybe ByteString)
-> TimeOfDay
-> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> (TimeOfDay -> ByteString) -> TimeOfDay -> Maybe ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> ByteString
BSL.toStrict (ByteString -> ByteString)
-> (TimeOfDay -> ByteString) -> TimeOfDay -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Builder -> ByteString
BSB.toLazyByteString (Builder -> ByteString)
-> (TimeOfDay -> Builder) -> TimeOfDay -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. BoundedPrim TimeOfDay -> TimeOfDay -> Builder
forall a. BoundedPrim a -> a -> Builder
BSBP.primBounded BoundedPrim TimeOfDay
Time.timeOfDay
  toField BackendParameters
backendParams StringEncoder
_ Maybe Oid
Nothing FormatCode
BinaryFormat =
    case ShortByteString -> BackendParameters -> Maybe ShortByteString
forall k a. Ord k => k -> Map k a -> Maybe a
M.lookup ShortByteString
"integer_datetimes" BackendParameters
backendParams of
      Maybe ShortByteString
Nothing    -> m (Maybe ByteString) -> TimeOfDay -> m (Maybe ByteString)
forall a b. a -> b -> a
const (m (Maybe ByteString) -> TimeOfDay -> m (Maybe ByteString))
-> m (Maybe ByteString) -> TimeOfDay -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String -> m (Maybe ByteString)
forall (m :: * -> *) a. MonadFail m => String -> m a
fail String
"not found \"integer_datetimes\" backend parameter"
      Just ShortByteString
"on"  -> Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> (TimeOfDay -> Maybe ByteString)
-> TimeOfDay
-> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> (TimeOfDay -> ByteString) -> TimeOfDay -> Maybe ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Encoding -> ByteString
BE.encodingBytes (Encoding -> ByteString)
-> (TimeOfDay -> Encoding) -> TimeOfDay -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TimeOfDay -> Encoding
BE.time_int
      Just ShortByteString
"off" -> Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> (TimeOfDay -> Maybe ByteString)
-> TimeOfDay
-> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> (TimeOfDay -> ByteString) -> TimeOfDay -> Maybe ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Encoding -> ByteString
BE.encodingBytes (Encoding -> ByteString)
-> (TimeOfDay -> Encoding) -> TimeOfDay -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TimeOfDay -> Encoding
BE.time_float
      Just ShortByteString
v     -> m (Maybe ByteString) -> TimeOfDay -> m (Maybe ByteString)
forall a b. a -> b -> a
const (m (Maybe ByteString) -> TimeOfDay -> m (Maybe ByteString))
-> m (Maybe ByteString) -> TimeOfDay -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String -> m (Maybe ByteString)
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m (Maybe ByteString)) -> String -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String
"\"integer_datetimes\" has unrecognized value: " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> ShortByteString -> String
forall a. Show a => a -> String
show ShortByteString
v
  toField BackendParameters
backendParams StringEncoder
encode (Just Oid
o) FormatCode
f | Oid
o Oid -> Oid -> Bool
forall a. Eq a => a -> a -> Bool
== Oid
Oid.time = BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> TimeOfDay
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f
                                          | Bool
otherwise = m (Maybe ByteString) -> TimeOfDay -> m (Maybe ByteString)
forall a b. a -> b -> a
const (m (Maybe ByteString) -> TimeOfDay -> m (Maybe ByteString))
-> m (Maybe ByteString) -> TimeOfDay -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String -> m (Maybe ByteString)
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m (Maybe ByteString)) -> String -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String
"type mismatch (ToField): OID: " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Oid -> String
forall a. Show a => a -> String
show Oid
o String -> String -> String
forall a. Semigroup a => a -> a -> a
<> String
", Haskell: TimeOfDay"

instance ToField TimeOfDayWithTimeZone where
  toField :: BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> TimeOfDayWithTimeZone
-> m (Maybe ByteString)
toField BackendParameters
_ StringEncoder
_ Maybe Oid
Nothing FormatCode
TextFormat = Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> (TimeOfDayWithTimeZone -> Maybe ByteString)
-> TimeOfDayWithTimeZone
-> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> (TimeOfDayWithTimeZone -> ByteString)
-> TimeOfDayWithTimeZone
-> Maybe ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> ByteString
BSL.toStrict (ByteString -> ByteString)
-> (TimeOfDayWithTimeZone -> ByteString)
-> TimeOfDayWithTimeZone
-> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Builder -> ByteString
BSB.toLazyByteString (Builder -> ByteString)
-> (TimeOfDayWithTimeZone -> Builder)
-> TimeOfDayWithTimeZone
-> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. BoundedPrim TimeOfDayWithTimeZone
-> TimeOfDayWithTimeZone -> Builder
forall a. BoundedPrim a -> a -> Builder
BSBP.primBounded (TimeOfDayWithTimeZone -> (TimeOfDay, TimeZone)
go (TimeOfDayWithTimeZone -> (TimeOfDay, TimeZone))
-> BoundedPrim (TimeOfDay, TimeZone)
-> BoundedPrim TimeOfDayWithTimeZone
forall (f :: * -> *) b a. Contravariant f => (b -> a) -> f a -> f b
BSBP.>$< BoundedPrim TimeOfDay
Time.timeOfDay BoundedPrim TimeOfDay
-> BoundedPrim TimeZone -> BoundedPrim (TimeOfDay, TimeZone)
forall (f :: * -> *) a b. Monoidal f => f a -> f b -> f (a, b)
BSBP.>*< BoundedPrim TimeZone
Time.timeZone)
                                   where go :: TimeOfDayWithTimeZone -> (TimeOfDay, TimeZone)
go (TimeOfDayWithTimeZone TimeOfDay
t TimeZone
tz) = (TimeOfDay
t, TimeZone
tz)
  toField BackendParameters
backendParams StringEncoder
_ Maybe Oid
Nothing FormatCode
BinaryFormat =
    case ShortByteString -> BackendParameters -> Maybe ShortByteString
forall k a. Ord k => k -> Map k a -> Maybe a
M.lookup ShortByteString
"integer_datetimes" BackendParameters
backendParams of
      Maybe ShortByteString
Nothing    -> m (Maybe ByteString)
-> TimeOfDayWithTimeZone -> m (Maybe ByteString)
forall a b. a -> b -> a
const (m (Maybe ByteString)
 -> TimeOfDayWithTimeZone -> m (Maybe ByteString))
-> m (Maybe ByteString)
-> TimeOfDayWithTimeZone
-> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String -> m (Maybe ByteString)
forall (m :: * -> *) a. MonadFail m => String -> m a
fail String
"not found \"integer_datetimes\" backend parameter"
      Just ShortByteString
"on"  -> Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> (TimeOfDayWithTimeZone -> Maybe ByteString)
-> TimeOfDayWithTimeZone
-> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> (TimeOfDayWithTimeZone -> ByteString)
-> TimeOfDayWithTimeZone
-> Maybe ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Encoding -> ByteString
BE.encodingBytes (Encoding -> ByteString)
-> (TimeOfDayWithTimeZone -> Encoding)
-> TimeOfDayWithTimeZone
-> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (TimeOfDay, TimeZone) -> Encoding
BE.timetz_int ((TimeOfDay, TimeZone) -> Encoding)
-> (TimeOfDayWithTimeZone -> (TimeOfDay, TimeZone))
-> TimeOfDayWithTimeZone
-> Encoding
forall b c a. (b -> c) -> (a -> b) -> a -> c
. \(TimeOfDayWithTimeZone TimeOfDay
t TimeZone
tz) -> (TimeOfDay
t, TimeZone
tz)
      Just ShortByteString
"off" -> Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> (TimeOfDayWithTimeZone -> Maybe ByteString)
-> TimeOfDayWithTimeZone
-> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> (TimeOfDayWithTimeZone -> ByteString)
-> TimeOfDayWithTimeZone
-> Maybe ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Encoding -> ByteString
BE.encodingBytes (Encoding -> ByteString)
-> (TimeOfDayWithTimeZone -> Encoding)
-> TimeOfDayWithTimeZone
-> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (TimeOfDay, TimeZone) -> Encoding
BE.timetz_float ((TimeOfDay, TimeZone) -> Encoding)
-> (TimeOfDayWithTimeZone -> (TimeOfDay, TimeZone))
-> TimeOfDayWithTimeZone
-> Encoding
forall b c a. (b -> c) -> (a -> b) -> a -> c
. \(TimeOfDayWithTimeZone TimeOfDay
t TimeZone
tz) -> (TimeOfDay
t, TimeZone
tz)
      Just ShortByteString
v     -> m (Maybe ByteString)
-> TimeOfDayWithTimeZone -> m (Maybe ByteString)
forall a b. a -> b -> a
const (m (Maybe ByteString)
 -> TimeOfDayWithTimeZone -> m (Maybe ByteString))
-> m (Maybe ByteString)
-> TimeOfDayWithTimeZone
-> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String -> m (Maybe ByteString)
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m (Maybe ByteString)) -> String -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String
"\"integer_datetimes\" has unrecognized value: " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> ShortByteString -> String
forall a. Show a => a -> String
show ShortByteString
v
  toField BackendParameters
backendParams StringEncoder
encode (Just Oid
o) FormatCode
f | Oid
o Oid -> Oid -> Bool
forall a. Eq a => a -> a -> Bool
== Oid
Oid.timetz = BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> TimeOfDayWithTimeZone
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f
                                          | Bool
otherwise = m (Maybe ByteString)
-> TimeOfDayWithTimeZone -> m (Maybe ByteString)
forall a b. a -> b -> a
const (m (Maybe ByteString)
 -> TimeOfDayWithTimeZone -> m (Maybe ByteString))
-> m (Maybe ByteString)
-> TimeOfDayWithTimeZone
-> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String -> m (Maybe ByteString)
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m (Maybe ByteString)) -> String -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String
"type mismatch (ToField): OID: " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Oid -> String
forall a. Show a => a -> String
show Oid
o String -> String -> String
forall a. Semigroup a => a -> a -> a
<> String
", Haskell: TimeOfDayWithTimeZone)"

instance ToField LocalTime where
  toField :: BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> LocalTime
-> m (Maybe ByteString)
toField BackendParameters
_ StringEncoder
_ Maybe Oid
Nothing FormatCode
TextFormat = Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> (LocalTime -> Maybe ByteString)
-> LocalTime
-> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> (LocalTime -> ByteString) -> LocalTime -> Maybe ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> ByteString
BSL.toStrict (ByteString -> ByteString)
-> (LocalTime -> ByteString) -> LocalTime -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Builder -> ByteString
BSB.toLazyByteString (Builder -> ByteString)
-> (LocalTime -> Builder) -> LocalTime -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. BoundedPrim LocalTime -> LocalTime -> Builder
forall a. BoundedPrim a -> a -> Builder
BSBP.primBounded BoundedPrim LocalTime
Time.localTime
  toField BackendParameters
_ StringEncoder
_ Maybe Oid
Nothing FormatCode
BinaryFormat = Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> (LocalTime -> Maybe ByteString)
-> LocalTime
-> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> (LocalTime -> ByteString) -> LocalTime -> Maybe ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Encoding -> ByteString
BE.encodingBytes (Encoding -> ByteString)
-> (LocalTime -> Encoding) -> LocalTime -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. LocalTime -> Encoding
BE.timestamp_int
  toField BackendParameters
backendParams StringEncoder
encode (Just Oid
o) FormatCode
f | Oid
o Oid -> Oid -> Bool
forall a. Eq a => a -> a -> Bool
== Oid
Oid.timestamp = BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> LocalTime
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f
                                          | Bool
otherwise = m (Maybe ByteString) -> LocalTime -> m (Maybe ByteString)
forall a b. a -> b -> a
const (m (Maybe ByteString) -> LocalTime -> m (Maybe ByteString))
-> m (Maybe ByteString) -> LocalTime -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String -> m (Maybe ByteString)
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m (Maybe ByteString)) -> String -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String
"type mismatch (ToField): OID: " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Oid -> String
forall a. Show a => a -> String
show Oid
o String -> String -> String
forall a. Semigroup a => a -> a -> a
<> String
", Haskell: LocalTime"

instance ToField UTCTime where
  toField :: BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> UTCTime
-> m (Maybe ByteString)
toField BackendParameters
_ StringEncoder
_ Maybe Oid
Nothing FormatCode
TextFormat = Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> (UTCTime -> Maybe ByteString) -> UTCTime -> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> (UTCTime -> ByteString) -> UTCTime -> Maybe ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> ByteString
BSL.toStrict (ByteString -> ByteString)
-> (UTCTime -> ByteString) -> UTCTime -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Builder -> ByteString
BSB.toLazyByteString (Builder -> ByteString)
-> (UTCTime -> Builder) -> UTCTime -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. BoundedPrim UTCTime -> UTCTime -> Builder
forall a. BoundedPrim a -> a -> Builder
BSBP.primBounded BoundedPrim UTCTime
Time.utcTime
  toField BackendParameters
_ StringEncoder
_ Maybe Oid
Nothing FormatCode
BinaryFormat = Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> (UTCTime -> Maybe ByteString) -> UTCTime -> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> (UTCTime -> ByteString) -> UTCTime -> Maybe ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Encoding -> ByteString
BE.encodingBytes (Encoding -> ByteString)
-> (UTCTime -> Encoding) -> UTCTime -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. UTCTime -> Encoding
BE.timestamptz_int
  toField BackendParameters
backendParams StringEncoder
encode (Just Oid
o) FormatCode
f | Oid
o Oid -> Oid -> Bool
forall a. Eq a => a -> a -> Bool
== Oid
Oid.timestamptz = BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> UTCTime
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f
                                          | Bool
otherwise = m (Maybe ByteString) -> UTCTime -> m (Maybe ByteString)
forall a b. a -> b -> a
const (m (Maybe ByteString) -> UTCTime -> m (Maybe ByteString))
-> m (Maybe ByteString) -> UTCTime -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String -> m (Maybe ByteString)
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m (Maybe ByteString)) -> String -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String
"type mismatch (ToField): OID: " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Oid -> String
forall a. Show a => a -> String
show Oid
o String -> String -> String
forall a. Semigroup a => a -> a -> a
<> String
", Haskell: UTCTime"

instance ToField DiffTime where
  toField :: BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> DiffTime
-> m (Maybe ByteString)
toField BackendParameters
_ StringEncoder
encode Maybe Oid
Nothing FormatCode
TextFormat = (ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> m ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$>) (m ByteString -> m (Maybe ByteString))
-> (DiffTime -> m ByteString) -> DiffTime -> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Either String ByteString -> m ByteString
forall (m :: * -> *) a. MonadFail m => Either String a -> m a
MonadFail.fromEither (Either String ByteString -> m ByteString)
-> (DiffTime -> Either String ByteString)
-> DiffTime
-> m ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. StringEncoder
encode StringEncoder
-> (DiffTime -> String) -> DiffTime -> Either String ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. DiffTime -> String
forall a. Show a => a -> String
show -- XXX maybe slow
  toField BackendParameters
_ StringEncoder
_ Maybe Oid
Nothing FormatCode
BinaryFormat = Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> (DiffTime -> Maybe ByteString)
-> DiffTime
-> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString)
-> (DiffTime -> ByteString) -> DiffTime -> Maybe ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Encoding -> ByteString
BE.encodingBytes (Encoding -> ByteString)
-> (DiffTime -> Encoding) -> DiffTime -> ByteString
forall b c a. (b -> c) -> (a -> b) -> a -> c
. DiffTime -> Encoding
BE.interval_int
  toField BackendParameters
backendParams StringEncoder
encode (Just Oid
o) FormatCode
f | Oid
o Oid -> Oid -> Bool
forall a. Eq a => a -> a -> Bool
== Oid
Oid.interval = BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> DiffTime
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f
                                          | Bool
otherwise = m (Maybe ByteString) -> DiffTime -> m (Maybe ByteString)
forall a b. a -> b -> a
const (m (Maybe ByteString) -> DiffTime -> m (Maybe ByteString))
-> m (Maybe ByteString) -> DiffTime -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String -> m (Maybe ByteString)
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m (Maybe ByteString)) -> String -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String
"type mismatch (ToField): OID: " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Oid -> String
forall a. Show a => a -> String
show Oid
o String -> String -> String
forall a. Semigroup a => a -> a -> a
<> String
", Haskell: DiffTime"

instance ToField NominalDiffTime where
  toField :: BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> NominalDiffTime
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
Nothing FormatCode
f = BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> Pico
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f (Pico -> m (Maybe ByteString))
-> (NominalDiffTime -> Pico)
-> NominalDiffTime
-> m (Maybe ByteString)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (NominalDiffTime -> Pico
forall a b. (Real a, Fractional b) => a -> b
realToFrac :: NominalDiffTime -> Pico)
  toField BackendParameters
backendParams StringEncoder
encode (Just Oid
o) FormatCode
f | Oid
o Oid -> Oid -> Bool
forall a. Eq a => a -> a -> Bool
== Oid
Oid.numeric = BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> NominalDiffTime
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f
                                          | Bool
otherwise = m (Maybe ByteString) -> NominalDiffTime -> m (Maybe ByteString)
forall a b. a -> b -> a
const (m (Maybe ByteString) -> NominalDiffTime -> m (Maybe ByteString))
-> m (Maybe ByteString) -> NominalDiffTime -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String -> m (Maybe ByteString)
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m (Maybe ByteString)) -> String -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String
"type mismatch (ToField): OID: " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Oid -> String
forall a. Show a => a -> String
show Oid
o String -> String -> String
forall a. Semigroup a => a -> a -> a
<> String
", Haskell: NominalDiffTime"

instance ToField Oid where
  toField :: BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> Oid
-> m (Maybe ByteString)
toField BackendParameters
_ StringEncoder
_ Maybe Oid
Nothing FormatCode
TextFormat (Oid Int32
v) = Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> Maybe ByteString -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString) -> ByteString -> Maybe ByteString
forall a b. (a -> b) -> a -> b
$ ByteString -> ByteString
BSL.toStrict (ByteString -> ByteString) -> ByteString -> ByteString
forall a b. (a -> b) -> a -> b
$ Builder -> ByteString
BSB.toLazyByteString (Builder -> ByteString) -> Builder -> ByteString
forall a b. (a -> b) -> a -> b
$ Int32 -> Builder
BSB.int32Dec Int32
v
  toField BackendParameters
_ StringEncoder
_ Maybe Oid
Nothing FormatCode
BinaryFormat (Oid Int32
v) = Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> Maybe ByteString -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString) -> ByteString -> Maybe ByteString
forall a b. (a -> b) -> a -> b
$ Encoding -> ByteString
BE.encodingBytes (Encoding -> ByteString) -> Encoding -> ByteString
forall a b. (a -> b) -> a -> b
$ Int32 -> Encoding
BE.int4_int32 Int32
v
  toField BackendParameters
backendParams StringEncoder
encode (Just Oid
o) FormatCode
f Oid
v | Oid
o Oid -> Oid -> Bool
forall a. Eq a => a -> a -> Bool
== Oid
Oid.oid = BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> Oid
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f Oid
v
                                            | Bool
otherwise = String -> m (Maybe ByteString)
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m (Maybe ByteString)) -> String -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ String
"type mismatch (ToField): OID: " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Oid -> String
forall a. Show a => a -> String
show Oid
o String -> String -> String
forall a. Semigroup a => a -> a -> a
<> String
", Haskell: Oid"

instance ToField a => ToField (Maybe a) where
  toField :: BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> Maybe a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
oid FormatCode
f (Just a
v) = BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
oid FormatCode
f a
v
  toField BackendParameters
_ StringEncoder
_ Maybe Oid
_ FormatCode
_ Maybe a
Nothing = Maybe ByteString -> m (Maybe ByteString)
forall (f :: * -> *) a. Applicative f => a -> f a
pure (Maybe ByteString -> m (Maybe ByteString))
-> Maybe ByteString -> m (Maybe ByteString)
forall a b. (a -> b) -> a -> b
$ ByteString -> Maybe ByteString
forall a. a -> Maybe a
Just (ByteString -> Maybe ByteString) -> ByteString -> Maybe ByteString
forall a b. (a -> b) -> a -> b
$ Encoding -> ByteString
BE.encodingBytes (Encoding -> ByteString) -> Encoding -> ByteString
forall a b. (a -> b) -> a -> b
$ Int32 -> Encoding
BE.int4_int32 (-Int32
1)

-- 0 tuple
instance ToRecord () where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> ()
-> m [Maybe ByteString]
toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
Nothing [] ()
_ =
    [Maybe ByteString] -> m [Maybe ByteString]
forall (f :: * -> *) a. Applicative f => a -> f a
pure []
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
Nothing [FormatCode]
fs ()
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 0, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)
  toRecord BackendParameters
_ StringEncoder
_ (Just []) [] ()
_ =
    [Maybe ByteString] -> m [Maybe ByteString]
forall (f :: * -> *) a. Applicative f => a -> f a
pure []
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [] ()
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 0, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs ()
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 0, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 1 tuple
instance
  {-# OVERLAPPABLE #-}
  (ToField a, Single c, t ~ c a)
  => ToRecord t where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> t
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f] (Single v) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f a
v]
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
Nothing [FormatCode
_] t
_ =
    m [Maybe ByteString]
forall a. HasCallStack => a
cantReachHere
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o]) [FormatCode
f] (Single v) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o) FormatCode
f a
v]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode
_] t
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 1, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs t
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 1, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 2-tuple
instance (ToField i0, ToField i1) => ToRecord (i0, i1) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1] (i0
v0, i1
v1) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1]) [FormatCode
f0, FormatCode
f1] (i0
v0, i1
v1) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 2, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 2, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 3-tuple
instance (ToField i0, ToField i1, ToField i2) => ToRecord (i0, i1, i2) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2] (i0
v0, i1
v1, i2
v2) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2]) [FormatCode
f0, FormatCode
f1, FormatCode
f2] (i0
v0, i1
v1, i2
v2) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 3, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 3, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 4-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3) => ToRecord (i0, i1, i2, i3) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3] (i0
v0, i1
v1, i2
v2, i3
v3) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3] (i0
v0, i1
v1, i2
v2, i3
v3) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 4, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 4, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 5-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4) => ToRecord (i0, i1, i2, i3, i4) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 5, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 5, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 6-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5) => ToRecord (i0, i1, i2, i3, i4, i5) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 6, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 6, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 7-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6) => ToRecord (i0, i1, i2, i3, i4, i5, i6) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 7, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 7, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 8-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 8, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 8, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 9-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 9, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 9, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 10-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 10, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 10, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 11-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 11, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 11, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 12-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 12, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 12, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 13-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 13, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 13, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 14-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 14, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 14, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 15-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 15, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 15, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 16-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 16, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 16, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 17-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 17, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 17, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 18-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 18, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 18, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 19-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 19, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 19, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 20-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 20, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 20, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 21-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 21, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 21, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 22-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 22, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 22, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 23-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 23, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 23, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 24-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 24, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 24, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 25-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 25, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 25, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 26-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 26, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 26, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 27-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 27, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 27, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 28-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 28, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 28, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 29-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 29, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 29, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 30-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 30, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 30, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 31-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 31, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 31, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 32-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30, i31)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f31 i31
v31]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30, Oid
o31]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o31) FormatCode
f31 i31
v31]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 32, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 32, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 33-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30, i31, i32)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f32 i32
v32]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30, Oid
o31, Oid
o32]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o31) FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o32) FormatCode
f32 i32
v32]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 33, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 33, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 34-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30, i31, i32, i33)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f33 i33
v33]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30, Oid
o31, Oid
o32, Oid
o33]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o31) FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o32) FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o33) FormatCode
f33 i33
v33]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 34, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 34, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 35-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30, i31, i32, i33, i34)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f34 i34
v34]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30, Oid
o31, Oid
o32, Oid
o33, Oid
o34]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o31) FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o32) FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o33) FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o34) FormatCode
f34 i34
v34]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 35, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 35, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 36-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30, i31, i32, i33, i34, i35)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f35 i35
v35]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30, Oid
o31, Oid
o32, Oid
o33, Oid
o34, Oid
o35]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o31) FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o32) FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o33) FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o34) FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o35) FormatCode
f35 i35
v35]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 36, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 36, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 37-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30, i31, i32, i33, i34, i35, i36)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f36 i36
v36]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30, Oid
o31, Oid
o32, Oid
o33, Oid
o34, Oid
o35, Oid
o36]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o31) FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o32) FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o33) FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o34) FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o35) FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o36) FormatCode
f36 i36
v36]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 37, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 37, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 38-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f37 i37
v37]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30, Oid
o31, Oid
o32, Oid
o33, Oid
o34, Oid
o35, Oid
o36, Oid
o37]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o31) FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o32) FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o33) FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o34) FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o35) FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o36) FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o37) FormatCode
f37 i37
v37]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 38, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 38, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 39-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f38 i38
v38]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30, Oid
o31, Oid
o32, Oid
o33, Oid
o34, Oid
o35, Oid
o36, Oid
o37, Oid
o38]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o31) FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o32) FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o33) FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o34) FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o35) FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o36) FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o37) FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o38) FormatCode
f38 i38
v38]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 39, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 39, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 40-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f39 i39
v39]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30, Oid
o31, Oid
o32, Oid
o33, Oid
o34, Oid
o35, Oid
o36, Oid
o37, Oid
o38, Oid
o39]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o31) FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o32) FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o33) FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o34) FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o35) FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o36) FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o37) FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o38) FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o39) FormatCode
f39 i39
v39]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 40, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 40, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 41-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39,
    i40)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f40 i40
v40]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30, Oid
o31, Oid
o32, Oid
o33, Oid
o34, Oid
o35, Oid
o36, Oid
o37, Oid
o38, Oid
o39, Oid
o40]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o31) FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o32) FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o33) FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o34) FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o35) FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o36) FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o37) FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o38) FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o39) FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o40) FormatCode
f40 i40
v40]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 41, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 41, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 42-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39,
    i40, i41)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f41 i41
v41]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30, Oid
o31, Oid
o32, Oid
o33, Oid
o34, Oid
o35, Oid
o36, Oid
o37, Oid
o38, Oid
o39, Oid
o40, Oid
o41]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o31) FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o32) FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o33) FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o34) FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o35) FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o36) FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o37) FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o38) FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o39) FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o40) FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o41) FormatCode
f41 i41
v41]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 42, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 42, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 43-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39,
    i40, i41, i42)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f42 i42
v42]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30, Oid
o31, Oid
o32, Oid
o33, Oid
o34, Oid
o35, Oid
o36, Oid
o37, Oid
o38, Oid
o39, Oid
o40, Oid
o41, Oid
o42]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o31) FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o32) FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o33) FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o34) FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o35) FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o36) FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o37) FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o38) FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o39) FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o40) FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o41) FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o42) FormatCode
f42 i42
v42]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 43, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 43, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 44-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39,
    i40, i41, i42, i43)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f43 i43
v43]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30, Oid
o31, Oid
o32, Oid
o33, Oid
o34, Oid
o35, Oid
o36, Oid
o37, Oid
o38, Oid
o39, Oid
o40, Oid
o41, Oid
o42, Oid
o43]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o31) FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o32) FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o33) FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o34) FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o35) FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o36) FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o37) FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o38) FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o39) FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o40) FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o41) FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o42) FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o43) FormatCode
f43 i43
v43]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 44, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 44, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 45-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39,
    i40, i41, i42, i43, i44)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f44 i44
v44]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30, Oid
o31, Oid
o32, Oid
o33, Oid
o34, Oid
o35, Oid
o36, Oid
o37, Oid
o38, Oid
o39, Oid
o40, Oid
o41, Oid
o42, Oid
o43, Oid
o44]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o31) FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o32) FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o33) FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o34) FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o35) FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o36) FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o37) FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o38) FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o39) FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o40) FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o41) FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o42) FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o43) FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o44) FormatCode
f44 i44
v44]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 45, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 45, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 46-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39,
    i40, i41, i42, i43, i44, i45)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f45 i45
v45]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30, Oid
o31, Oid
o32, Oid
o33, Oid
o34, Oid
o35, Oid
o36, Oid
o37, Oid
o38, Oid
o39, Oid
o40, Oid
o41, Oid
o42, Oid
o43, Oid
o44, Oid
o45]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o31) FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o32) FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o33) FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o34) FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o35) FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o36) FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o37) FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o38) FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o39) FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o40) FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o41) FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o42) FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o43) FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o44) FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o45) FormatCode
f45 i45
v45]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 46, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 46, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 47-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39,
    i40, i41, i42, i43, i44, i45, i46)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f46 i46
v46]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30, Oid
o31, Oid
o32, Oid
o33, Oid
o34, Oid
o35, Oid
o36, Oid
o37, Oid
o38, Oid
o39, Oid
o40, Oid
o41, Oid
o42, Oid
o43, Oid
o44, Oid
o45, Oid
o46]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o31) FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o32) FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o33) FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o34) FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o35) FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o36) FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o37) FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o38) FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o39) FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o40) FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o41) FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o42) FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o43) FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o44) FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o45) FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o46) FormatCode
f46 i46
v46]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 47, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 47, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 48-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46, ToField i47) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39,
    i40, i41, i42, i43, i44, i45, i46, i47)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46, FormatCode
f47] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46, i47
v47) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f46 i46
v46, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i47
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f47 i47
v47]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30, Oid
o31, Oid
o32, Oid
o33, Oid
o34, Oid
o35, Oid
o36, Oid
o37, Oid
o38, Oid
o39, Oid
o40, Oid
o41, Oid
o42, Oid
o43, Oid
o44, Oid
o45, Oid
o46, Oid
o47]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46, FormatCode
f47] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46, i47
v47) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o31) FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o32) FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o33) FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o34) FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o35) FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o36) FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o37) FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o38) FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o39) FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o40) FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o41) FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o42) FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o43) FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o44) FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o45) FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o46) FormatCode
f46 i46
v46, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i47
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o47) FormatCode
f47 i47
v47]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46, i47)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 48, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46, i47)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 48, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 49-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46, ToField i47, ToField i48) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39,
    i40, i41, i42, i43, i44, i45, i46, i47, i48)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46, FormatCode
f47, FormatCode
f48] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46, i47
v47, i48
v48) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f46 i46
v46, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i47
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f47 i47
v47, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i48
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f48 i48
v48]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30, Oid
o31, Oid
o32, Oid
o33, Oid
o34, Oid
o35, Oid
o36, Oid
o37, Oid
o38, Oid
o39, Oid
o40, Oid
o41, Oid
o42, Oid
o43, Oid
o44, Oid
o45, Oid
o46, Oid
o47, Oid
o48]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46, FormatCode
f47, FormatCode
f48] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46, i47
v47, i48
v48) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o31) FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o32) FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o33) FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o34) FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o35) FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o36) FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o37) FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o38) FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o39) FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o40) FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o41) FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o42) FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o43) FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o44) FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o45) FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o46) FormatCode
f46 i46
v46, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i47
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o47) FormatCode
f47 i47
v47, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i48
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o48) FormatCode
f48 i48
v48]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46, i47, i48)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 49, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46, i47, i48)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 49, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 50-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46, ToField i47, ToField i48, ToField i49) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39,
    i40, i41, i42, i43, i44, i45, i46, i47, i48, i49)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46, FormatCode
f47, FormatCode
f48, FormatCode
f49] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46, i47
v47, i48
v48, i49
v49) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f46 i46
v46, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i47
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f47 i47
v47, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i48
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f48 i48
v48, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i49
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f49 i49
v49]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30, Oid
o31, Oid
o32, Oid
o33, Oid
o34, Oid
o35, Oid
o36, Oid
o37, Oid
o38, Oid
o39, Oid
o40, Oid
o41, Oid
o42, Oid
o43, Oid
o44, Oid
o45, Oid
o46, Oid
o47, Oid
o48, Oid
o49]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46, FormatCode
f47, FormatCode
f48, FormatCode
f49] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46, i47
v47, i48
v48, i49
v49) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o31) FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o32) FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o33) FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o34) FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o35) FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o36) FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o37) FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o38) FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o39) FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o40) FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o41) FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o42) FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o43) FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o44) FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o45) FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o46) FormatCode
f46 i46
v46, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i47
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o47) FormatCode
f47 i47
v47, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i48
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o48) FormatCode
f48 i48
v48, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i49
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o49) FormatCode
f49 i49
v49]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46, i47, i48, i49)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 50, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46, i47, i48, i49)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 50, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 51-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46, ToField i47, ToField i48, ToField i49, ToField i50) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39,
    i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46, FormatCode
f47, FormatCode
f48, FormatCode
f49, FormatCode
f50] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46, i47
v47, i48
v48, i49
v49, i50
v50) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f46 i46
v46, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i47
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f47 i47
v47, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i48
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f48 i48
v48, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i49
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f49 i49
v49, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i50
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f50 i50
v50]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30, Oid
o31, Oid
o32, Oid
o33, Oid
o34, Oid
o35, Oid
o36, Oid
o37, Oid
o38, Oid
o39, Oid
o40, Oid
o41, Oid
o42, Oid
o43, Oid
o44, Oid
o45, Oid
o46, Oid
o47, Oid
o48, Oid
o49, Oid
o50]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46, FormatCode
f47, FormatCode
f48, FormatCode
f49, FormatCode
f50] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46, i47
v47, i48
v48, i49
v49, i50
v50) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o31) FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o32) FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o33) FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o34) FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o35) FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o36) FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o37) FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o38) FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o39) FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o40) FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o41) FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o42) FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o43) FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o44) FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o45) FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o46) FormatCode
f46 i46
v46, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i47
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o47) FormatCode
f47 i47
v47, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i48
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o48) FormatCode
f48 i48
v48, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i49
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o49) FormatCode
f49 i49
v49, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i50
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o50) FormatCode
f50 i50
v50]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46, i47, i48, i49, i50)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 51, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46, i47, i48, i49, i50)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 51, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 52-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46, ToField i47, ToField i48, ToField i49, ToField i50, ToField i51) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39,
    i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46, FormatCode
f47, FormatCode
f48, FormatCode
f49, FormatCode
f50, FormatCode
f51] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46, i47
v47, i48
v48, i49
v49, i50
v50, i51
v51) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f46 i46
v46, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i47
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f47 i47
v47, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i48
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f48 i48
v48, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i49
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f49 i49
v49, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i50
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f50 i50
v50, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i51
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f51 i51
v51]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30, Oid
o31, Oid
o32, Oid
o33, Oid
o34, Oid
o35, Oid
o36, Oid
o37, Oid
o38, Oid
o39, Oid
o40, Oid
o41, Oid
o42, Oid
o43, Oid
o44, Oid
o45, Oid
o46, Oid
o47, Oid
o48, Oid
o49, Oid
o50, Oid
o51]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46, FormatCode
f47, FormatCode
f48, FormatCode
f49, FormatCode
f50, FormatCode
f51] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46, i47
v47, i48
v48, i49
v49, i50
v50, i51
v51) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o31) FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o32) FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o33) FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o34) FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o35) FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o36) FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o37) FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o38) FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o39) FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o40) FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o41) FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o42) FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o43) FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o44) FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o45) FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o46) FormatCode
f46 i46
v46, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i47
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o47) FormatCode
f47 i47
v47, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i48
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o48) FormatCode
f48 i48
v48, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i49
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o49) FormatCode
f49 i49
v49, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i50
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o50) FormatCode
f50 i50
v50, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i51
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o51) FormatCode
f51 i51
v51]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 52, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 52, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 53-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46, ToField i47, ToField i48, ToField i49, ToField i50, ToField i51, ToField i52) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39,
    i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46, FormatCode
f47, FormatCode
f48, FormatCode
f49, FormatCode
f50, FormatCode
f51, FormatCode
f52] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46, i47
v47, i48
v48, i49
v49, i50
v50, i51
v51, i52
v52) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f46 i46
v46, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i47
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f47 i47
v47, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i48
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f48 i48
v48, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i49
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f49 i49
v49, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i50
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f50 i50
v50, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i51
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f51 i51
v51, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i52
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f52 i52
v52]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30, Oid
o31, Oid
o32, Oid
o33, Oid
o34, Oid
o35, Oid
o36, Oid
o37, Oid
o38, Oid
o39, Oid
o40, Oid
o41, Oid
o42, Oid
o43, Oid
o44, Oid
o45, Oid
o46, Oid
o47, Oid
o48, Oid
o49, Oid
o50, Oid
o51, Oid
o52]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46, FormatCode
f47, FormatCode
f48, FormatCode
f49, FormatCode
f50, FormatCode
f51, FormatCode
f52] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46, i47
v47, i48
v48, i49
v49, i50
v50, i51
v51, i52
v52) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o31) FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o32) FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o33) FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o34) FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o35) FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o36) FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o37) FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o38) FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o39) FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o40) FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o41) FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o42) FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o43) FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o44) FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o45) FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o46) FormatCode
f46 i46
v46, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i47
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o47) FormatCode
f47 i47
v47, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i48
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o48) FormatCode
f48 i48
v48, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i49
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o49) FormatCode
f49 i49
v49, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i50
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o50) FormatCode
f50 i50
v50, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i51
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o51) FormatCode
f51 i51
v51, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i52
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o52) FormatCode
f52 i52
v52]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 53, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 53, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 54-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46, ToField i47, ToField i48, ToField i49, ToField i50, ToField i51, ToField i52, ToField i53) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39,
    i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52,
    i53)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46, FormatCode
f47, FormatCode
f48, FormatCode
f49, FormatCode
f50, FormatCode
f51, FormatCode
f52, FormatCode
f53] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46, i47
v47, i48
v48, i49
v49, i50
v50, i51
v51, i52
v52, i53
v53) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f46 i46
v46, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i47
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f47 i47
v47, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i48
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f48 i48
v48, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i49
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f49 i49
v49, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i50
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f50 i50
v50, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i51
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f51 i51
v51, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i52
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f52 i52
v52, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i53
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f53 i53
v53]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30, Oid
o31, Oid
o32, Oid
o33, Oid
o34, Oid
o35, Oid
o36, Oid
o37, Oid
o38, Oid
o39, Oid
o40, Oid
o41, Oid
o42, Oid
o43, Oid
o44, Oid
o45, Oid
o46, Oid
o47, Oid
o48, Oid
o49, Oid
o50, Oid
o51, Oid
o52, Oid
o53]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46, FormatCode
f47, FormatCode
f48, FormatCode
f49, FormatCode
f50, FormatCode
f51, FormatCode
f52, FormatCode
f53] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46, i47
v47, i48
v48, i49
v49, i50
v50, i51
v51, i52
v52, i53
v53) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o31) FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o32) FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o33) FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o34) FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o35) FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o36) FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o37) FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o38) FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o39) FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o40) FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o41) FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o42) FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o43) FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o44) FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o45) FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o46) FormatCode
f46 i46
v46, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i47
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o47) FormatCode
f47 i47
v47, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i48
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o48) FormatCode
f48 i48
v48, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i49
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o49) FormatCode
f49 i49
v49, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i50
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o50) FormatCode
f50 i50
v50, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i51
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o51) FormatCode
f51 i51
v51, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i52
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o52) FormatCode
f52 i52
v52, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i53
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o53) FormatCode
f53 i53
v53]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 54, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 54, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 55-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46, ToField i47, ToField i48, ToField i49, ToField i50, ToField i51, ToField i52, ToField i53, ToField i54) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39,
    i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52,
    i53, i54)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46, FormatCode
f47, FormatCode
f48, FormatCode
f49, FormatCode
f50, FormatCode
f51, FormatCode
f52, FormatCode
f53, FormatCode
f54] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46, i47
v47, i48
v48, i49
v49, i50
v50, i51
v51, i52
v52, i53
v53, i54
v54) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f46 i46
v46, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i47
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f47 i47
v47, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i48
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f48 i48
v48, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i49
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f49 i49
v49, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i50
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f50 i50
v50, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i51
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f51 i51
v51, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i52
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f52 i52
v52, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i53
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f53 i53
v53, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i54
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f54 i54
v54]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30, Oid
o31, Oid
o32, Oid
o33, Oid
o34, Oid
o35, Oid
o36, Oid
o37, Oid
o38, Oid
o39, Oid
o40, Oid
o41, Oid
o42, Oid
o43, Oid
o44, Oid
o45, Oid
o46, Oid
o47, Oid
o48, Oid
o49, Oid
o50, Oid
o51, Oid
o52, Oid
o53, Oid
o54]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46, FormatCode
f47, FormatCode
f48, FormatCode
f49, FormatCode
f50, FormatCode
f51, FormatCode
f52, FormatCode
f53, FormatCode
f54] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46, i47
v47, i48
v48, i49
v49, i50
v50, i51
v51, i52
v52, i53
v53, i54
v54) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o31) FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o32) FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o33) FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o34) FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o35) FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o36) FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o37) FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o38) FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o39) FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o40) FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o41) FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o42) FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o43) FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o44) FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o45) FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o46) FormatCode
f46 i46
v46, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i47
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o47) FormatCode
f47 i47
v47, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i48
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o48) FormatCode
f48 i48
v48, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i49
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o49) FormatCode
f49 i49
v49, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i50
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o50) FormatCode
f50 i50
v50, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i51
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o51) FormatCode
f51 i51
v51, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i52
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o52) FormatCode
f52 i52
v52, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i53
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o53) FormatCode
f53 i53
v53, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i54
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o54) FormatCode
f54 i54
v54]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53,
 i54)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 55, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53,
 i54)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 55, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 56-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46, ToField i47, ToField i48, ToField i49, ToField i50, ToField i51, ToField i52, ToField i53, ToField i54, ToField i55) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39,
    i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52,
    i53, i54, i55)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46, FormatCode
f47, FormatCode
f48, FormatCode
f49, FormatCode
f50, FormatCode
f51, FormatCode
f52, FormatCode
f53, FormatCode
f54, FormatCode
f55] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46, i47
v47, i48
v48, i49
v49, i50
v50, i51
v51, i52
v52, i53
v53, i54
v54, i55
v55) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f46 i46
v46, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i47
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f47 i47
v47, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i48
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f48 i48
v48, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i49
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f49 i49
v49, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i50
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f50 i50
v50, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i51
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f51 i51
v51, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i52
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f52 i52
v52, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i53
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f53 i53
v53, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i54
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f54 i54
v54, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i55
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f55 i55
v55]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30, Oid
o31, Oid
o32, Oid
o33, Oid
o34, Oid
o35, Oid
o36, Oid
o37, Oid
o38, Oid
o39, Oid
o40, Oid
o41, Oid
o42, Oid
o43, Oid
o44, Oid
o45, Oid
o46, Oid
o47, Oid
o48, Oid
o49, Oid
o50, Oid
o51, Oid
o52, Oid
o53, Oid
o54, Oid
o55]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46, FormatCode
f47, FormatCode
f48, FormatCode
f49, FormatCode
f50, FormatCode
f51, FormatCode
f52, FormatCode
f53, FormatCode
f54, FormatCode
f55] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46, i47
v47, i48
v48, i49
v49, i50
v50, i51
v51, i52
v52, i53
v53, i54
v54, i55
v55) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o31) FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o32) FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o33) FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o34) FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o35) FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o36) FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o37) FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o38) FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o39) FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o40) FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o41) FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o42) FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o43) FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o44) FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o45) FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o46) FormatCode
f46 i46
v46, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i47
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o47) FormatCode
f47 i47
v47, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i48
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o48) FormatCode
f48 i48
v48, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i49
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o49) FormatCode
f49 i49
v49, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i50
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o50) FormatCode
f50 i50
v50, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i51
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o51) FormatCode
f51 i51
v51, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i52
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o52) FormatCode
f52 i52
v52, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i53
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o53) FormatCode
f53 i53
v53, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i54
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o54) FormatCode
f54 i54
v54, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i55
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o55) FormatCode
f55 i55
v55]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53,
 i54, i55)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 56, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53,
 i54, i55)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 56, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 57-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46, ToField i47, ToField i48, ToField i49, ToField i50, ToField i51, ToField i52, ToField i53, ToField i54, ToField i55, ToField i56) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55, i56) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39,
    i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52,
    i53, i54, i55, i56)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46, FormatCode
f47, FormatCode
f48, FormatCode
f49, FormatCode
f50, FormatCode
f51, FormatCode
f52, FormatCode
f53, FormatCode
f54, FormatCode
f55, FormatCode
f56] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46, i47
v47, i48
v48, i49
v49, i50
v50, i51
v51, i52
v52, i53
v53, i54
v54, i55
v55, i56
v56) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f46 i46
v46, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i47
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f47 i47
v47, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i48
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f48 i48
v48, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i49
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f49 i49
v49, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i50
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f50 i50
v50, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i51
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f51 i51
v51, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i52
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f52 i52
v52, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i53
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f53 i53
v53, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i54
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f54 i54
v54, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i55
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f55 i55
v55, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i56
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f56 i56
v56]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30, Oid
o31, Oid
o32, Oid
o33, Oid
o34, Oid
o35, Oid
o36, Oid
o37, Oid
o38, Oid
o39, Oid
o40, Oid
o41, Oid
o42, Oid
o43, Oid
o44, Oid
o45, Oid
o46, Oid
o47, Oid
o48, Oid
o49, Oid
o50, Oid
o51, Oid
o52, Oid
o53, Oid
o54, Oid
o55, Oid
o56]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46, FormatCode
f47, FormatCode
f48, FormatCode
f49, FormatCode
f50, FormatCode
f51, FormatCode
f52, FormatCode
f53, FormatCode
f54, FormatCode
f55, FormatCode
f56] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46, i47
v47, i48
v48, i49
v49, i50
v50, i51
v51, i52
v52, i53
v53, i54
v54, i55
v55, i56
v56) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o31) FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o32) FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o33) FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o34) FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o35) FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o36) FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o37) FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o38) FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o39) FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o40) FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o41) FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o42) FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o43) FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o44) FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o45) FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o46) FormatCode
f46 i46
v46, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i47
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o47) FormatCode
f47 i47
v47, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i48
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o48) FormatCode
f48 i48
v48, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i49
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o49) FormatCode
f49 i49
v49, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i50
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o50) FormatCode
f50 i50
v50, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i51
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o51) FormatCode
f51 i51
v51, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i52
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o52) FormatCode
f52 i52
v52, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i53
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o53) FormatCode
f53 i53
v53, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i54
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o54) FormatCode
f54 i54
v54, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i55
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o55) FormatCode
f55 i55
v55, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i56
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o56) FormatCode
f56 i56
v56]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53,
 i54, i55, i56)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 57, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53,
 i54, i55, i56)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 57, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 58-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46, ToField i47, ToField i48, ToField i49, ToField i50, ToField i51, ToField i52, ToField i53, ToField i54, ToField i55, ToField i56, ToField i57) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55, i56, i57) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39,
    i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52,
    i53, i54, i55, i56, i57)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46, FormatCode
f47, FormatCode
f48, FormatCode
f49, FormatCode
f50, FormatCode
f51, FormatCode
f52, FormatCode
f53, FormatCode
f54, FormatCode
f55, FormatCode
f56, FormatCode
f57] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46, i47
v47, i48
v48, i49
v49, i50
v50, i51
v51, i52
v52, i53
v53, i54
v54, i55
v55, i56
v56, i57
v57) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f46 i46
v46, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i47
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f47 i47
v47, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i48
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f48 i48
v48, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i49
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f49 i49
v49, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i50
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f50 i50
v50, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i51
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f51 i51
v51, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i52
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f52 i52
v52, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i53
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f53 i53
v53, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i54
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f54 i54
v54, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i55
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f55 i55
v55, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i56
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f56 i56
v56, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i57
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f57 i57
v57]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30, Oid
o31, Oid
o32, Oid
o33, Oid
o34, Oid
o35, Oid
o36, Oid
o37, Oid
o38, Oid
o39, Oid
o40, Oid
o41, Oid
o42, Oid
o43, Oid
o44, Oid
o45, Oid
o46, Oid
o47, Oid
o48, Oid
o49, Oid
o50, Oid
o51, Oid
o52, Oid
o53, Oid
o54, Oid
o55, Oid
o56, Oid
o57]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46, FormatCode
f47, FormatCode
f48, FormatCode
f49, FormatCode
f50, FormatCode
f51, FormatCode
f52, FormatCode
f53, FormatCode
f54, FormatCode
f55, FormatCode
f56, FormatCode
f57] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46, i47
v47, i48
v48, i49
v49, i50
v50, i51
v51, i52
v52, i53
v53, i54
v54, i55
v55, i56
v56, i57
v57) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o31) FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o32) FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o33) FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o34) FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o35) FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o36) FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o37) FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o38) FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o39) FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o40) FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o41) FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o42) FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o43) FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o44) FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o45) FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o46) FormatCode
f46 i46
v46, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i47
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o47) FormatCode
f47 i47
v47, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i48
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o48) FormatCode
f48 i48
v48, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i49
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o49) FormatCode
f49 i49
v49, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i50
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o50) FormatCode
f50 i50
v50, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i51
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o51) FormatCode
f51 i51
v51, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i52
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o52) FormatCode
f52 i52
v52, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i53
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o53) FormatCode
f53 i53
v53, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i54
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o54) FormatCode
f54 i54
v54, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i55
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o55) FormatCode
f55 i55
v55, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i56
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o56) FormatCode
f56 i56
v56, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i57
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o57) FormatCode
f57 i57
v57]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53,
 i54, i55, i56, i57)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 58, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53,
 i54, i55, i56, i57)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 58, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 59-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46, ToField i47, ToField i48, ToField i49, ToField i50, ToField i51, ToField i52, ToField i53, ToField i54, ToField i55, ToField i56, ToField i57, ToField i58) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55, i56, i57, i58) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39,
    i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52,
    i53, i54, i55, i56, i57, i58)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46, FormatCode
f47, FormatCode
f48, FormatCode
f49, FormatCode
f50, FormatCode
f51, FormatCode
f52, FormatCode
f53, FormatCode
f54, FormatCode
f55, FormatCode
f56, FormatCode
f57, FormatCode
f58] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46, i47
v47, i48
v48, i49
v49, i50
v50, i51
v51, i52
v52, i53
v53, i54
v54, i55
v55, i56
v56, i57
v57, i58
v58) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f46 i46
v46, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i47
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f47 i47
v47, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i48
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f48 i48
v48, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i49
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f49 i49
v49, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i50
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f50 i50
v50, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i51
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f51 i51
v51, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i52
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f52 i52
v52, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i53
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f53 i53
v53, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i54
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f54 i54
v54, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i55
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f55 i55
v55, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i56
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f56 i56
v56, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i57
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f57 i57
v57, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i58
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f58 i58
v58]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30, Oid
o31, Oid
o32, Oid
o33, Oid
o34, Oid
o35, Oid
o36, Oid
o37, Oid
o38, Oid
o39, Oid
o40, Oid
o41, Oid
o42, Oid
o43, Oid
o44, Oid
o45, Oid
o46, Oid
o47, Oid
o48, Oid
o49, Oid
o50, Oid
o51, Oid
o52, Oid
o53, Oid
o54, Oid
o55, Oid
o56, Oid
o57, Oid
o58]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46, FormatCode
f47, FormatCode
f48, FormatCode
f49, FormatCode
f50, FormatCode
f51, FormatCode
f52, FormatCode
f53, FormatCode
f54, FormatCode
f55, FormatCode
f56, FormatCode
f57, FormatCode
f58] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46, i47
v47, i48
v48, i49
v49, i50
v50, i51
v51, i52
v52, i53
v53, i54
v54, i55
v55, i56
v56, i57
v57, i58
v58) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o31) FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o32) FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o33) FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o34) FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o35) FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o36) FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o37) FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o38) FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o39) FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o40) FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o41) FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o42) FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o43) FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o44) FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o45) FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o46) FormatCode
f46 i46
v46, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i47
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o47) FormatCode
f47 i47
v47, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i48
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o48) FormatCode
f48 i48
v48, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i49
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o49) FormatCode
f49 i49
v49, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i50
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o50) FormatCode
f50 i50
v50, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i51
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o51) FormatCode
f51 i51
v51, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i52
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o52) FormatCode
f52 i52
v52, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i53
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o53) FormatCode
f53 i53
v53, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i54
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o54) FormatCode
f54 i54
v54, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i55
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o55) FormatCode
f55 i55
v55, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i56
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o56) FormatCode
f56 i56
v56, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i57
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o57) FormatCode
f57 i57
v57, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i58
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o58) FormatCode
f58 i58
v58]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53,
 i54, i55, i56, i57, i58)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 59, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53,
 i54, i55, i56, i57, i58)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 59, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 60-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46, ToField i47, ToField i48, ToField i49, ToField i50, ToField i51, ToField i52, ToField i53, ToField i54, ToField i55, ToField i56, ToField i57, ToField i58, ToField i59) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55, i56, i57, i58, i59) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39,
    i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52,
    i53, i54, i55, i56, i57, i58, i59)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46, FormatCode
f47, FormatCode
f48, FormatCode
f49, FormatCode
f50, FormatCode
f51, FormatCode
f52, FormatCode
f53, FormatCode
f54, FormatCode
f55, FormatCode
f56, FormatCode
f57, FormatCode
f58, FormatCode
f59] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46, i47
v47, i48
v48, i49
v49, i50
v50, i51
v51, i52
v52, i53
v53, i54
v54, i55
v55, i56
v56, i57
v57, i58
v58, i59
v59) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f46 i46
v46, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i47
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f47 i47
v47, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i48
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f48 i48
v48, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i49
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f49 i49
v49, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i50
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f50 i50
v50, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i51
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f51 i51
v51, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i52
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f52 i52
v52, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i53
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f53 i53
v53, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i54
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f54 i54
v54, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i55
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f55 i55
v55, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i56
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f56 i56
v56, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i57
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f57 i57
v57, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i58
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f58 i58
v58, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i59
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f59 i59
v59]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30, Oid
o31, Oid
o32, Oid
o33, Oid
o34, Oid
o35, Oid
o36, Oid
o37, Oid
o38, Oid
o39, Oid
o40, Oid
o41, Oid
o42, Oid
o43, Oid
o44, Oid
o45, Oid
o46, Oid
o47, Oid
o48, Oid
o49, Oid
o50, Oid
o51, Oid
o52, Oid
o53, Oid
o54, Oid
o55, Oid
o56, Oid
o57, Oid
o58, Oid
o59]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46, FormatCode
f47, FormatCode
f48, FormatCode
f49, FormatCode
f50, FormatCode
f51, FormatCode
f52, FormatCode
f53, FormatCode
f54, FormatCode
f55, FormatCode
f56, FormatCode
f57, FormatCode
f58, FormatCode
f59] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46, i47
v47, i48
v48, i49
v49, i50
v50, i51
v51, i52
v52, i53
v53, i54
v54, i55
v55, i56
v56, i57
v57, i58
v58, i59
v59) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o31) FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o32) FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o33) FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o34) FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o35) FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o36) FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o37) FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o38) FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o39) FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o40) FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o41) FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o42) FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o43) FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o44) FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o45) FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o46) FormatCode
f46 i46
v46, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i47
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o47) FormatCode
f47 i47
v47, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i48
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o48) FormatCode
f48 i48
v48, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i49
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o49) FormatCode
f49 i49
v49, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i50
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o50) FormatCode
f50 i50
v50, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i51
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o51) FormatCode
f51 i51
v51, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i52
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o52) FormatCode
f52 i52
v52, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i53
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o53) FormatCode
f53 i53
v53, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i54
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o54) FormatCode
f54 i54
v54, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i55
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o55) FormatCode
f55 i55
v55, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i56
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o56) FormatCode
f56 i56
v56, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i57
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o57) FormatCode
f57 i57
v57, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i58
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o58) FormatCode
f58 i58
v58, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i59
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o59) FormatCode
f59 i59
v59]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53,
 i54, i55, i56, i57, i58, i59)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 60, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53,
 i54, i55, i56, i57, i58, i59)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 60, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 61-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46, ToField i47, ToField i48, ToField i49, ToField i50, ToField i51, ToField i52, ToField i53, ToField i54, ToField i55, ToField i56, ToField i57, ToField i58, ToField i59, ToField i60) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55, i56, i57, i58, i59, i60) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39,
    i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52,
    i53, i54, i55, i56, i57, i58, i59, i60)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46, FormatCode
f47, FormatCode
f48, FormatCode
f49, FormatCode
f50, FormatCode
f51, FormatCode
f52, FormatCode
f53, FormatCode
f54, FormatCode
f55, FormatCode
f56, FormatCode
f57, FormatCode
f58, FormatCode
f59, FormatCode
f60] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46, i47
v47, i48
v48, i49
v49, i50
v50, i51
v51, i52
v52, i53
v53, i54
v54, i55
v55, i56
v56, i57
v57, i58
v58, i59
v59, i60
v60) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f46 i46
v46, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i47
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f47 i47
v47, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i48
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f48 i48
v48, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i49
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f49 i49
v49, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i50
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f50 i50
v50, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i51
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f51 i51
v51, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i52
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f52 i52
v52, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i53
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f53 i53
v53, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i54
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f54 i54
v54, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i55
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f55 i55
v55, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i56
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f56 i56
v56, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i57
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f57 i57
v57, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i58
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f58 i58
v58, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i59
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f59 i59
v59, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i60
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f60 i60
v60]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30, Oid
o31, Oid
o32, Oid
o33, Oid
o34, Oid
o35, Oid
o36, Oid
o37, Oid
o38, Oid
o39, Oid
o40, Oid
o41, Oid
o42, Oid
o43, Oid
o44, Oid
o45, Oid
o46, Oid
o47, Oid
o48, Oid
o49, Oid
o50, Oid
o51, Oid
o52, Oid
o53, Oid
o54, Oid
o55, Oid
o56, Oid
o57, Oid
o58, Oid
o59, Oid
o60]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46, FormatCode
f47, FormatCode
f48, FormatCode
f49, FormatCode
f50, FormatCode
f51, FormatCode
f52, FormatCode
f53, FormatCode
f54, FormatCode
f55, FormatCode
f56, FormatCode
f57, FormatCode
f58, FormatCode
f59, FormatCode
f60] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46, i47
v47, i48
v48, i49
v49, i50
v50, i51
v51, i52
v52, i53
v53, i54
v54, i55
v55, i56
v56, i57
v57, i58
v58, i59
v59, i60
v60) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o31) FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o32) FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o33) FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o34) FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o35) FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o36) FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o37) FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o38) FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o39) FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o40) FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o41) FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o42) FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o43) FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o44) FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o45) FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o46) FormatCode
f46 i46
v46, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i47
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o47) FormatCode
f47 i47
v47, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i48
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o48) FormatCode
f48 i48
v48, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i49
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o49) FormatCode
f49 i49
v49, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i50
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o50) FormatCode
f50 i50
v50, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i51
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o51) FormatCode
f51 i51
v51, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i52
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o52) FormatCode
f52 i52
v52, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i53
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o53) FormatCode
f53 i53
v53, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i54
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o54) FormatCode
f54 i54
v54, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i55
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o55) FormatCode
f55 i55
v55, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i56
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o56) FormatCode
f56 i56
v56, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i57
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o57) FormatCode
f57 i57
v57, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i58
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o58) FormatCode
f58 i58
v58, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i59
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o59) FormatCode
f59 i59
v59, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i60
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o60) FormatCode
f60 i60
v60]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53,
 i54, i55, i56, i57, i58, i59, i60)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 61, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53,
 i54, i55, i56, i57, i58, i59, i60)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 61, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- 62-tuple
instance (ToField i0, ToField i1, ToField i2, ToField i3, ToField i4, ToField i5, ToField i6, ToField i7, ToField i8, ToField i9, ToField i10, ToField i11, ToField i12, ToField i13, ToField i14, ToField i15, ToField i16, ToField i17, ToField i18, ToField i19, ToField i20, ToField i21, ToField i22, ToField i23, ToField i24, ToField i25, ToField i26, ToField i27, ToField i28, ToField i29, ToField i30, ToField i31, ToField i32, ToField i33, ToField i34, ToField i35, ToField i36, ToField i37, ToField i38, ToField i39, ToField i40, ToField i41, ToField i42, ToField i43, ToField i44, ToField i45, ToField i46, ToField i47, ToField i48, ToField i49, ToField i50, ToField i51, ToField i52, ToField i53, ToField i54, ToField i55, ToField i56, ToField i57, ToField i58, ToField i59, ToField i60, ToField i61) => ToRecord (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53, i54, i55, i56, i57, i58, i59, i60, i61) where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13,
    i14, i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26,
    i27, i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39,
    i40, i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52,
    i53, i54, i55, i56, i57, i58, i59, i60, i61)
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46, FormatCode
f47, FormatCode
f48, FormatCode
f49, FormatCode
f50, FormatCode
f51, FormatCode
f52, FormatCode
f53, FormatCode
f54, FormatCode
f55, FormatCode
f56, FormatCode
f57, FormatCode
f58, FormatCode
f59, FormatCode
f60, FormatCode
f61] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46, i47
v47, i48
v48, i49
v49, i50
v50, i51
v51, i52
v52, i53
v53, i54
v54, i55
v55, i56
v56, i57
v57, i58
v58, i59
v59, i60
v60, i61
v61) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f46 i46
v46, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i47
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f47 i47
v47, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i48
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f48 i48
v48, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i49
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f49 i49
v49, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i50
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f50 i50
v50, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i51
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f51 i51
v51, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i52
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f52 i52
v52, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i53
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f53 i53
v53, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i54
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f54 i54
v54, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i55
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f55 i55
v55, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i56
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f56 i56
v56, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i57
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f57 i57
v57, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i58
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f58 i58
v58, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i59
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f59 i59
v59, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i60
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f60 i60
v60, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i61
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f61 i61
v61]
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid
o0, Oid
o1, Oid
o2, Oid
o3, Oid
o4, Oid
o5, Oid
o6, Oid
o7, Oid
o8, Oid
o9, Oid
o10, Oid
o11, Oid
o12, Oid
o13, Oid
o14, Oid
o15, Oid
o16, Oid
o17, Oid
o18, Oid
o19, Oid
o20, Oid
o21, Oid
o22, Oid
o23, Oid
o24, Oid
o25, Oid
o26, Oid
o27, Oid
o28, Oid
o29, Oid
o30, Oid
o31, Oid
o32, Oid
o33, Oid
o34, Oid
o35, Oid
o36, Oid
o37, Oid
o38, Oid
o39, Oid
o40, Oid
o41, Oid
o42, Oid
o43, Oid
o44, Oid
o45, Oid
o46, Oid
o47, Oid
o48, Oid
o49, Oid
o50, Oid
o51, Oid
o52, Oid
o53, Oid
o54, Oid
o55, Oid
o56, Oid
o57, Oid
o58, Oid
o59, Oid
o60, Oid
o61]) [FormatCode
f0, FormatCode
f1, FormatCode
f2, FormatCode
f3, FormatCode
f4, FormatCode
f5, FormatCode
f6, FormatCode
f7, FormatCode
f8, FormatCode
f9, FormatCode
f10, FormatCode
f11, FormatCode
f12, FormatCode
f13, FormatCode
f14, FormatCode
f15, FormatCode
f16, FormatCode
f17, FormatCode
f18, FormatCode
f19, FormatCode
f20, FormatCode
f21, FormatCode
f22, FormatCode
f23, FormatCode
f24, FormatCode
f25, FormatCode
f26, FormatCode
f27, FormatCode
f28, FormatCode
f29, FormatCode
f30, FormatCode
f31, FormatCode
f32, FormatCode
f33, FormatCode
f34, FormatCode
f35, FormatCode
f36, FormatCode
f37, FormatCode
f38, FormatCode
f39, FormatCode
f40, FormatCode
f41, FormatCode
f42, FormatCode
f43, FormatCode
f44, FormatCode
f45, FormatCode
f46, FormatCode
f47, FormatCode
f48, FormatCode
f49, FormatCode
f50, FormatCode
f51, FormatCode
f52, FormatCode
f53, FormatCode
f54, FormatCode
f55, FormatCode
f56, FormatCode
f57, FormatCode
f58, FormatCode
f59, FormatCode
f60, FormatCode
f61] (i0
v0, i1
v1, i2
v2, i3
v3, i4
v4, i5
v5, i6
v6, i7
v7, i8
v8, i9
v9, i10
v10, i11
v11, i12
v12, i13
v13, i14
v14, i15
v15, i16
v16, i17
v17, i18
v18, i19
v19, i20
v20, i21
v21, i22
v22, i23
v23, i24
v24, i25
v25, i26
v26, i27
v27, i28
v28, i29
v29, i30
v30, i31
v31, i32
v32, i33
v33, i34
v34, i35
v35, i36
v36, i37
v37, i38
v38, i39
v39, i40
v40, i41
v41, i42
v42, i43
v43, i44
v44, i45
v45, i46
v46, i47
v47, i48
v48, i49
v49, i50
v50, i51
v51, i52
v52, i53
v53, i54
v54, i55
v55, i56
v56, i57
v57, i58
v58, i59
v59, i60
v60, i61
v61) =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence [BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i0
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o0) FormatCode
f0 i0
v0, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i1
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o1) FormatCode
f1 i1
v1, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i2
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o2) FormatCode
f2 i2
v2, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i3
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o3) FormatCode
f3 i3
v3, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i4
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o4) FormatCode
f4 i4
v4, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i5
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o5) FormatCode
f5 i5
v5, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i6
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o6) FormatCode
f6 i6
v6, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i7
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o7) FormatCode
f7 i7
v7, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i8
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o8) FormatCode
f8 i8
v8, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i9
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o9) FormatCode
f9 i9
v9, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i10
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o10) FormatCode
f10 i10
v10, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i11
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o11) FormatCode
f11 i11
v11, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i12
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o12) FormatCode
f12 i12
v12, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i13
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o13) FormatCode
f13 i13
v13, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i14
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o14) FormatCode
f14 i14
v14, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i15
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o15) FormatCode
f15 i15
v15, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i16
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o16) FormatCode
f16 i16
v16, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i17
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o17) FormatCode
f17 i17
v17, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i18
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o18) FormatCode
f18 i18
v18, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i19
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o19) FormatCode
f19 i19
v19, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i20
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o20) FormatCode
f20 i20
v20, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i21
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o21) FormatCode
f21 i21
v21, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i22
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o22) FormatCode
f22 i22
v22, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i23
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o23) FormatCode
f23 i23
v23, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i24
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o24) FormatCode
f24 i24
v24, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i25
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o25) FormatCode
f25 i25
v25, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i26
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o26) FormatCode
f26 i26
v26, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i27
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o27) FormatCode
f27 i27
v27, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i28
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o28) FormatCode
f28 i28
v28, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i29
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o29) FormatCode
f29 i29
v29, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i30
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o30) FormatCode
f30 i30
v30, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i31
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o31) FormatCode
f31 i31
v31, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i32
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o32) FormatCode
f32 i32
v32, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i33
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o33) FormatCode
f33 i33
v33, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i34
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o34) FormatCode
f34 i34
v34, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i35
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o35) FormatCode
f35 i35
v35, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i36
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o36) FormatCode
f36 i36
v36, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i37
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o37) FormatCode
f37 i37
v37, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i38
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o38) FormatCode
f38 i38
v38, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i39
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o39) FormatCode
f39 i39
v39, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i40
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o40) FormatCode
f40 i40
v40, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i41
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o41) FormatCode
f41 i41
v41, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i42
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o42) FormatCode
f42 i42
v42, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i43
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o43) FormatCode
f43 i43
v43, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i44
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o44) FormatCode
f44 i44
v44, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i45
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o45) FormatCode
f45 i45
v45, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i46
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o46) FormatCode
f46 i46
v46, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i47
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o47) FormatCode
f47 i47
v47, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i48
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o48) FormatCode
f48 i48
v48, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i49
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o49) FormatCode
f49 i49
v49, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i50
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o50) FormatCode
f50 i50
v50, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i51
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o51) FormatCode
f51 i51
v51, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i52
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o52) FormatCode
f52 i52
v52, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i53
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o53) FormatCode
f53 i53
v53, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i54
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o54) FormatCode
f54 i54
v54, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i55
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o55) FormatCode
f55 i55
v55, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i56
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o56) FormatCode
f56 i56
v56, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i57
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o57) FormatCode
f57 i57
v57, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i58
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o58) FormatCode
f58 i58
v58, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i59
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o59) FormatCode
f59 i59
v59, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i60
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o60) FormatCode
f60 i60
v60, BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> i61
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o61) FormatCode
f61 i61
v61]
  toRecord BackendParameters
_ StringEncoder
_ (Just [Oid]
os) [FormatCode]
_ (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53,
 i54, i55, i56, i57, i58, i59, i60, i61)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of OIDs must be 62, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os)
  toRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [FormatCode]
fs (i0, i1, i2, i3, i4, i5, i6, i7, i8, i9, i10, i11, i12, i13, i14,
 i15, i16, i17, i18, i19, i20, i21, i22, i23, i24, i25, i26, i27,
 i28, i29, i30, i31, i32, i33, i34, i35, i36, i37, i38, i39, i40,
 i41, i42, i43, i44, i45, i46, i47, i48, i49, i50, i51, i52, i53,
 i54, i55, i56, i57, i58, i59, i60, i61)
_ =
    String -> m [Maybe ByteString]
forall (m :: * -> *) a. MonadFail m => String -> m a
fail (String -> m [Maybe ByteString]) -> String -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ String
"the number of format codes must be 62, actually " String -> String -> String
forall a. Semigroup a => a -> a -> a
<> Int -> String
forall a. Show a => a -> String
show ([FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs)

-- list
instance
  {-# OVERLAPPING #-}
  ToField a
  => ToRecord [a] where
  toRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> [a]
-> m [Maybe ByteString]
toRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing [FormatCode]
fs [a]
vs =
    [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence ([m (Maybe ByteString)] -> m [Maybe ByteString])
-> [m (Maybe ByteString)] -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ (FormatCode -> a -> m (Maybe ByteString))
-> (FormatCode, a) -> m (Maybe ByteString)
forall a b c. (a -> b -> c) -> (a, b) -> c
uncurry (BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing) ((FormatCode, a) -> m (Maybe ByteString))
-> [(FormatCode, a)] -> [m (Maybe ByteString)]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> [FormatCode] -> [a] -> [(FormatCode, a)]
forall a b. [a] -> [b] -> [(a, b)]
zip [FormatCode]
fs [a]
vs
  toRecord BackendParameters
backendParams StringEncoder
encode (Just [Oid]
os) [FormatCode]
fs [a]
vs =
    Bool -> m [Maybe ByteString] -> m [Maybe ByteString]
forall a. HasCallStack => Bool -> a -> a
assert ([Oid] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [Oid]
os Int -> Int -> Bool
forall a. Eq a => a -> a -> Bool
== [FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs Bool -> Bool -> Bool
&& [FormatCode] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [FormatCode]
fs Int -> Int -> Bool
forall a. Eq a => a -> a -> Bool
== [a] -> Int
forall (t :: * -> *) a. Foldable t => t a -> Int
length [a]
vs) (m [Maybe ByteString] -> m [Maybe ByteString])
-> m [Maybe ByteString] -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ [m (Maybe ByteString)] -> m [Maybe ByteString]
forall (t :: * -> *) (m :: * -> *) a.
(Traversable t, Monad m) =>
t (m a) -> m (t a)
sequence ([m (Maybe ByteString)] -> m [Maybe ByteString])
-> [m (Maybe ByteString)] -> m [Maybe ByteString]
forall a b. (a -> b) -> a -> b
$ (Maybe Oid -> FormatCode -> a -> m (Maybe ByteString))
-> (Maybe Oid, FormatCode, a) -> m (Maybe ByteString)
forall a b c d. (a -> b -> c -> d) -> (a, b, c) -> d
uncurry3 (BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode) ((Maybe Oid, FormatCode, a) -> m (Maybe ByteString))
-> [(Maybe Oid, FormatCode, a)] -> [m (Maybe ByteString)]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> [Maybe Oid] -> [FormatCode] -> [a] -> [(Maybe Oid, FormatCode, a)]
forall a b c. [a] -> [b] -> [c] -> [(a, b, c)]
zip3 (Oid -> Maybe Oid
forall a. a -> Maybe a
Just (Oid -> Maybe Oid) -> [Oid] -> [Maybe Oid]
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> [Oid]
os) [FormatCode]
fs [a]
vs

-- generics
instance GToRecord f => GToRecord (Generics.M1 i t f) where
  gToRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> M1 i t f p
-> m ([Maybe ByteString], Maybe [Oid], [FormatCode])
gToRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
os [FormatCode]
fs (Generics.M1 f p
r) = BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> f p
-> m ([Maybe ByteString], Maybe [Oid], [FormatCode])
forall (f :: * -> *) (m :: * -> *) p.
(GToRecord f, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> f p
-> m ([Maybe ByteString], Maybe [Oid], [FormatCode])
gToRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
os [FormatCode]
fs f p
r

instance ToField c => GToRecord (Generics.K1 i c) where
  gToRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> K1 i c p
-> m ([Maybe ByteString], Maybe [Oid], [FormatCode])
gToRecord BackendParameters
backendParams StringEncoder
encode (Just (Oid
o:[Oid]
os)) (FormatCode
f:[FormatCode]
fs) (Generics.K1 c
v) = (, [Oid] -> Maybe [Oid]
forall a. a -> Maybe a
Just [Oid]
os, [FormatCode]
fs) ([Maybe ByteString]
 -> ([Maybe ByteString], Maybe [Oid], [FormatCode]))
-> (Maybe ByteString -> [Maybe ByteString])
-> Maybe ByteString
-> ([Maybe ByteString], Maybe [Oid], [FormatCode])
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe ByteString -> [Maybe ByteString] -> [Maybe ByteString]
forall a. a -> [a] -> [a]
:[]) (Maybe ByteString
 -> ([Maybe ByteString], Maybe [Oid], [FormatCode]))
-> m (Maybe ByteString)
-> m ([Maybe ByteString], Maybe [Oid], [FormatCode])
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> c
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode (Oid -> Maybe Oid
forall a. a -> Maybe a
Just Oid
o) FormatCode
f c
v
  gToRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
Nothing (FormatCode
f:[FormatCode]
fs) (Generics.K1 c
v) = (, Maybe [Oid]
forall a. Maybe a
Nothing, [FormatCode]
fs) ([Maybe ByteString]
 -> ([Maybe ByteString], Maybe [Oid], [FormatCode]))
-> (Maybe ByteString -> [Maybe ByteString])
-> Maybe ByteString
-> ([Maybe ByteString], Maybe [Oid], [FormatCode])
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (Maybe ByteString -> [Maybe ByteString] -> [Maybe ByteString]
forall a. a -> [a] -> [a]
:[]) (Maybe ByteString
 -> ([Maybe ByteString], Maybe [Oid], [FormatCode]))
-> m (Maybe ByteString)
-> m ([Maybe ByteString], Maybe [Oid], [FormatCode])
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> c
-> m (Maybe ByteString)
forall a (m :: * -> *).
(ToField a, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe Oid
-> FormatCode
-> a
-> m (Maybe ByteString)
toField BackendParameters
backendParams StringEncoder
encode Maybe Oid
forall a. Maybe a
Nothing FormatCode
f c
v
  gToRecord BackendParameters
_ StringEncoder
_ (Just []) [FormatCode]
_ K1 i c p
_ = String -> m ([Maybe ByteString], Maybe [Oid], [FormatCode])
forall (m :: * -> *) a. MonadFail m => String -> m a
fail String
"there are too few OIDs"
  gToRecord BackendParameters
_ StringEncoder
_ Maybe [Oid]
_ [] K1 i c p
_ = String -> m ([Maybe ByteString], Maybe [Oid], [FormatCode])
forall (m :: * -> *) a. MonadFail m => String -> m a
fail String
"there are too few format codes"

instance (GToRecord f, GToRecord g) => GToRecord (f Generics.:*: g) where
  gToRecord :: BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> (:*:) f g p
-> m ([Maybe ByteString], Maybe [Oid], [FormatCode])
gToRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
os [FormatCode]
fs (f p
f Generics.:*: g p
g) = do
    ([Maybe ByteString]
record, Maybe [Oid]
os', [FormatCode]
fs') <- BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> f p
-> m ([Maybe ByteString], Maybe [Oid], [FormatCode])
forall (f :: * -> *) (m :: * -> *) p.
(GToRecord f, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> f p
-> m ([Maybe ByteString], Maybe [Oid], [FormatCode])
gToRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
os [FormatCode]
fs f p
f
    ([Maybe ByteString]
record', Maybe [Oid]
os'', [FormatCode]
fs'') <- BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> g p
-> m ([Maybe ByteString], Maybe [Oid], [FormatCode])
forall (f :: * -> *) (m :: * -> *) p.
(GToRecord f, MonadFail m) =>
BackendParameters
-> StringEncoder
-> Maybe [Oid]
-> [FormatCode]
-> f p
-> m ([Maybe ByteString], Maybe [Oid], [FormatCode])
gToRecord BackendParameters
backendParams StringEncoder
encode Maybe [Oid]
os' [FormatCode]
fs' g p
g
    ([Maybe ByteString], Maybe [Oid], [FormatCode])
-> m ([Maybe ByteString], Maybe [Oid], [FormatCode])
forall (f :: * -> *) a. Applicative f => a -> f a
pure ([Maybe ByteString]
record [Maybe ByteString] -> [Maybe ByteString] -> [Maybe ByteString]
forall a. [a] -> [a] -> [a]
++ [Maybe ByteString]
record', Maybe [Oid]
os'', [FormatCode]
fs'')

uncurry3 :: (a -> b -> c -> d) -> (a, b, c) -> d
uncurry3 :: (a -> b -> c -> d) -> (a, b, c) -> d
uncurry3 a -> b -> c -> d
f (a
a, b
b, c
c) = a -> b -> c -> d
f a
a b
b c
c